ÃO DE COMPUTADORES 
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TRABALHE COM O CÓDIGO ASCII 


Linguagem comum aos computadores, o código 
ASCII permite a comunicação entre essas máqui- 
nas. Use números em vez de caracteres. Um pro- 
grama para codificar e decodificar as mais diver- 
SAS MODA GEND san cerne ERR ER A 361 





CÓDIGOS PARA O MSX 
O que são os códigos de controle ......... 367 





UM JOGO DE TIRO AO PATO 


Até mesmo o mais ferrenho ecologista pode parti- 
cipar desse inocente jogo de tiro ao pato, que tem 
a vantagem de limitar a mortandade dos simpáti- 
cos animaizinhos à tela do computador. Veja tam- 
bém como utilizar a sub-rotina de controle do joys- 
É q RR AR EE O A SAIA Te caca 0 368 


CONVERSÕES NO COMPUTADOR 


Ão contrário de outros povos, ingleses e norte- 
americanos empregam sistemas de pesos e medi- 
das diferentes do sistema métrico decimal. Aprenda 
a fazer conversões deste para aqueles (e vice- 
VOrsa!, NO COMPULAÇOr ..cciscece ceras ias 3/4 
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Conjunto de códigos alfanuméricos 
padronizados, o código ASCII 

foi concebido com o objetivo de tornar 
possível a transferência de 

dados de um computador para outro. 


Cada tecla ou combinação de teclas 
do seu micro corresponde a um código 
eletrônico dentro do computador. Em 
BASIC, códigos desse tipo são represen- 
tados por valores decimais entre O e 255. 


A letra A, por exemplo, tem o código 
decimal 65, B é 66, e assim por diante. 
Toda vez que uma letra ou palavra é di- 
gitada, o computador armazena os có- 
digos correspondentes. 

Os valores e caracteres corresponden- 
tes não são, porém, os mesmos em to- 
dos os computadores; mas felizmente 
existe alguma padronização no modo 
com que eles são usados. 

Os valores de código são referidos pe- 
la sigla ASCII (que vem de American 
Standard Code for Information Inter- 
change, ou seja, Código Padrão Ame- 
ricano para Troca de Informação). Es- 





E OQUEÉOCÓDIGOASCI!? 
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USE NÚMEROS EM VEZ 
DE CARACTERES 

E | UMPROGRAMA PARA CODFICAR 
E DECODIFICAR MENSAGENS 


se código foi montado com o objetivo 
de possibilitar a transferência de dados 
de um computador para outro. Os mi- 
cros TRS, MSX, Apple e Spectrum cos- 
tumam empregá-lo, pelo menos em par- 
te. Apenas o ZX-81 tem um código com- 
pletamente diferente. 


— OCÓDIGOASCI — | 


O conjunto completo de caracteres 
ASCII não se apresenta do mesmo mo- 
do em todos os computadores. Mas ha 
semelhanças entre os diversos conjun- 

















DU 


tos. A maior delas está na faixa de 33 
a 90, que cobre os símbolos mais co- 
muns — pontuação, numeros e letras 
maiúsculas. Existe um modo muito sim- 
ples de descobrir o código ASCII de um 
caractere: basta digitar PRINT ASC 
(“X") (ou PRINT CODE “X” no Spec- 
trum). Você terá, assim, O código de X 
ou de qualquer outro caractere que for 
colocado em seu lugar. O próximo pro- 
grama facilita as coisas para você: 


N10 PRINT"DIGITE QUALQUER LETRA, 


NUMERO OU CARACTER” 

20 INPUT AS 

30 PRINT"O CODIGO ASCII PARA "; 
AS;" E T;ASC(AS) 

40 GOTO 20 


No Spectrum, mude a linha 30 para: 


30 PRINT "O CODIGO ASCII PARA 
":.AS:” E T:CODE AS 


O oposto de ASC ou CODE é CHRS, 


que converte o número de código para 
o caractere correspondente. O próximo 






programa converte todos os códigos AS- 
CI de 33 a 90 em caracteres: 


Es 


10 PRINT"CODIGO ASCII”,"CARACTE 


20 FOR N=33 TO 90 
30 PRINT N, CHRS (N). 
40 FOR D=1 TO 500:NEXT D 
50 NEXT N 

As letras minúsculas estão na faixa de 
97 a 122 e podem ser vistas mudando- 
se o último número da linha 20 para 122. 
Ao substituirmos este último por 255, 


o, ss o sa SS RE 


E a a us ss Sp = 0800 - 


“FÃ didi te Ga A 


CO, to pu 





ae 


— NNE 


, teremos uma visão do conjunto comple- 

JA to de caracteres. A listagem dos carac- 

teres e códigos correspondentes está no 
manual do seu micro. 

No TRS-Color, os caracteres minús- 
culos aparecerão na tela iguais aos 
maiúsculos, só que invertidos. A impres- 
sora ligada ao micro provavelmente in- 
terpretará esses caracteres como minús- 
culos de verdade. O TK-2000 não pos- 
sui letras minúsculas, 





COMO USAR O CÓDIGO ASCII 





A vantagem de se usar um número 
em lugar de uma letra é que se pode 
alterá-lo matematicamente de várias ma- 
neiras. Então, ao se imprimir o CHRS 
do novo número, o que se obtém é uma 
letra diferente. Base para muitos progra- 
mas codificadores, essa possibilidade de 
conversão é muito interessante, visto 
que não se pode manipular uma letra 
por meio de regras matemáticas, 

Códigos simples apenas adicionam 
um valor constante a cada número, de 
modo a fazer com que a letra “viaje” 
pelo alfabeto. Por exemplo, a letra A vi- 
ra G,o B torna-se H, etc. Um códi- 
go desse tipo é tão fácil de mon- 

tar quanto de decifrar. Assim, 
um programa bem simples po- 
de tentar as 26 combinações 
possíveis; um rápido exame 
determinará qual dessas combi- 
nações é a correta. 
Para ser útil, contudo, o programa 
deve fazer coisas mais complicadas. O 
programa abaixo, por exemplo, usa uma 
palavra de código que funciona como 
chave. Assim, cada letra da mensagem 
é modificada de uma forma diferente. 
Muito mais difícil de ser decifrado, es- 
se código exige que se conheça a pala- 
vra-chave. 


| 









a 

Es 
10 POKE 23658,8: LET CP=0: 

| LET PM=0: LET D$=*"* 

| 30 INPUT "QUAL E A SENHA? "; 
LINE CS 
40 PRINT "INTRODUZA A MENSAGE 
M mr 


50 INPUT LINE M$ 

60 LET CP=CP+1l: IF CP>LEN CS 
THEN LET CP=] 

70 LET PM=PM+1 

80 IF PM>2LEN MS THEN GOTO 
200 

90 LET FS-MS (PM) 

100 IF FS<"A” OR F$>"Z" THEN 
GoTo 150 

110 LET F=CODE FS+CODE CS(CP)- 
65 





| 
| 


120 
130 


IF F>90 THEN LET.F=F-26 
LET D$=DS+CHRS F 

140 GoTo 60 

150 IF FS<"0" OR F$>"9" THEN 
LET D$=DS+F$S: GOTO 70 


160 LET F=CODE FS+CODE CS(CP)- 
48 
170 IF F>57 THEN LET F=F-10: 


GOTO 170 

180 LET D$=DS+CHRS F 

190 GOTO 60 

200 PRINT '"A MENSAGEM CODIFIC 
ADA E :* 

210 PRINT '*D$ 

220 STOP 


10 CLEAR 300 


20 CLS 
30 LINEINPUT"QUAL E A SENHA?";C 


40 PRINT"INTRODUZA A MENSAGEM” 
50 LINEINPUT MSS 
60 CP=CP+1:IF CP>LEN(CS) THEN CP 


70 PM=PM+1 

80 IF PM>LEN(MS$) THEN 200 
90 FS=MIDS (MSS,PM,1) 
100 IF FS<*A” OR FS>"Z” 
O 

110 F=ASC(FS)J+ASC(MIDS(CS.CP,1) 
)-65 

120 IF F>90 THEN F=F-26 

130 CD$=CDS+CHRS (F) 

140 GoTo 60 

150 IF FS$<"0”" OR F$>"9" THEN CD 
8=CDS+FS:GOTO 70 

160 F=ASC(FS)J+ASC(MIDS(CS,CP,1) 
)J-48 

170 IF F>57 THEN F=F-10:GOTO 17 
O 

180 CD$=CDS+CHRS (F) 


THEN 15 


190 GOTO 60 

200 PRINT:PRINT"A MENSAGEM CODI 
FICADA E: * 

210 PRINT:PRINT CDS 

220 END 

Caio 

10 HOME 


30 INPUT "Palavra chave? ";Cs5 
40 PRINT "Digite a mensagem:” 
50 INPUT MSS 

60 CP = CP + 1: 
S) THEN CP = 1 
70 PM = PM + 1 


IF CP > LEN (LC 


80 IF PM > LEN (MSS5) THEN 200 

90 FS = MIDS (MSS,PM,1) 

100 IF FS <TA" OR ES >"Z” TH 

EN 150 

110 F = ASC (F$) + ASC ( MIDS 
(C8,CP,1)) - 65 

120 IF F > 90 THEN F =F- 26 

130 CDS = CDS + CHAS (F) 

140 GOTO 60 

150 IF F$< "0" OR FS > "9” TH 

EN CDS = CDS + FS: GOTO 70 

160 F = ASC (F$) + ASC ( MIDS 
(C5,CP,1)) - 48 








170 IF F > 57 THENF=FÃ-Ãaio: 
GOTO 170 
180 CDS = 
190 GOTO 60 
200 PRINT 
codificada e: 
210 PRINT 
220 END 


py 


20 CLS 

30 LINEINPUT"Palavra de código? 
TG 

40 PRINT"Digite a mensagem:;” 

50 LINEINPUT MSS 

60 CP=CP+1:IFCP>LEN(CS) THENCP=1 
70 PM=PM+1 

BO IFPM>LEN(MSS5S) THEN200 

90 FS=MIDS (MSS,PM,1) 

100 IFFS<"A"OREFS>"Z"THENIS5SO 

110 F=ASC(FS)+ASC(MIDS(CS,CP,1) 
)-65 
120 

130 


CDS + CHARS (F) 


PRINT 


Lud 


PRINT CDS 


"A mensaqem 


IFF>90THENF=F-26 
CDS=CDS+CHRS (F) 

140 G0T060 

150 IFFS<S"O0O"ORFS>"9"THENCDS=CDS 
+FS:GOTO/0 

160 F=ASC(FS)+ASC(MIDS(CS,CP,1) 
)-48B 

170 IFE>57/THENF=F-10:GOTO170 
180 CDS=CDS+CHRS (F) 

190 G0OT0O60 

200 PRINT:PRINT"A mensagem codi 
ficada é:” 

210 PRINT:PRINTCDS 

220 END 


Depois de pedir que sejam digitadas 
a palavra-chave e a mensagem, o pro- 
grama faz a codificação, mostrando-a 
na tela. A mensagem ficará então pre- 
servada (ou seja, somente alguém que 
conheça o código poderá decifrá-la). 

O modo como isso funciona é bastan- 
te simples, assemelhando-se muito ao 
método descrito anteriormente. A dife- 
rença está no fato de que, em vez de adi- 
cionar um valor fixo a cada letra; o có- 
digo ASCII da primeira letra da palavra- 
chave é acrescentado à primeira letra da 
mensagem; a segunda letra da palavra- 
chave é adicionada à segunda da men- 
sagem, e assim por diante. Quando o 
fim da palavra-código é encontrado, o 
ciclo recomeça. 

Se o resultado de algumas das adições 
for maior do que 90 (o que significa que 
a letra correspondente ficará situada 
além do Z), devemos subtrair 26, de mo- 
do a-trazer o caractere para dentro do 
alfabeto. Os números são manipulados 
separadamente nas linhas 150 a 180 pa- 
ra manter o código entre 48 e 57, que 
corresponde a O e 9. 

O programa decodificador é muito 
semelhante ao primeiro, diferindo ape- 
nas em alguns sinais + e — que foram 
mudados, além de certos valores. Os nú- 
meros das linhas não coincidem; assim, 








| = E 
| h 1 | 
| | ] | 
| | 
| 
| | 
ME e] AS E E = Ea SE = e EE == á = SE === - ” = Es a - aê | 
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pode-se usar o programa combinado 
com o anterior. Algumas linhas foram 
colocadas de modo que se possa esco- 
lher entre codificar e decodificar uma 
mensagem. 

Se você está familiarizado com os co- 
mandos de remuneração e edição de li- 
nhas do seu computador, tente usá-los 
para transformar o programa anterior 
no programa que apresentamos agora. 
Depois, junte-os (MERGE). 


12 INPUT " (C)ODIFICAR OU (DJE 





CODIFICAR?” ; LINE AS do Ra 


lá IF A$="D" THEN GOTO 400 
16 IF AS<>"C”" THEN GOTO 12 
400 CLS 
410 INPUT "QUAL E A SENHA? ”; 
LINE CS 
420 PRINT “INTRODUZA A MENSAGE 
M CODIFICADA ” 
430 INPUT LINE M$ 
440 LET CP=CP+1l: IF CP2LEN CS 
THEN LET CP=1 
450 LET PM=PM+1 
460 IF PM>LEN MS THEN GOTO 
580 
470 LET FS=MS (PM) 
480 IF FS<"A” OR F$>"Z" THEN 
GOTO 530 
490 LET F=CODE F5S-CODE CS(CP)+ 
65 
500 IF F<65 THEN LET F=F+26 
510 LET DS=DS+CHAS F 
520 GOTO 440Q 
530 IF FS<"0” OR F$2"9” THEN 
LET DS=DS+FS: GOTO 450 
540 LET F=CODE FS-CODE CS(CP)+ 
48 
550 IF F<48 THEN LET F=F+1O: 
GoTo 550 
560 LET DS=DS+CHRS F 
570 GOTO 440 
5BO PRINT '"A MENSAGEM DECODIF 
ICADA E ” 
590 PRINT 'DS 
600 STOP 


12 INPUT (C)ODIFICAR OU (D) ECOD 
IFICARPRINT;AS 

14 IF A$="D”" THEN GOTO 400 

16 IF AS<>"C” THEN GOTO 12 

400 CLS 

410 LINEINPUT"QUAL E A SENHA?”; 
cs 

420 PRINT"INTRODUZA A MENSAGEM 

CODIFICADA” 

430 LINEINPUT MSS 

440 CP=CP+1:IF CP>LEN(CS) THEN 

CP=1 

450 PM=PM+1 


460 IF PM>LEN(MSS; THEN 580 

470 FS=MIDS (MSS,PM,1) 

480 IF FS<"A" OR FS>"Z”" THEN 53 
0 

490 F=ASC(FS)-ASC(MIDS (CS,CP,1) 
J+65 

500 IF F<65 THEN F=F+26 


Mi: 1 Mis Mi. E" EA a, 












E ; - — = — E | E e 
- a 


510 CD$=CDS+CHARS (F) 

520 GOoTo 440 

230 IF F5S<"0" OR FS>2"9” THEN CD 
$8=CDS+F5S:GOTO 450 

540 F=ASC(F$)-ASC(MIDS(CS,CP,1) 
) +48 

550 IF F<48 THEN F=F+10:GOTO 55 
O 
560 CD5S=CDS+CHAS (F) 

370 GOTO 440 

580 PRINT"A MENSAGEM DECODIFICA 
DA E: * 

590 PRINT: PRINT CDS 

600 END 


Cat 


12 INPUT "[Clodificar ou [Dlec 
odificar ";AS 

lá IF AS = "D” THEN 410 

16 IF AS < > FC” THEN 12 

400 HOME 

410 INPUT "Palavra chave? ":Cs 


420 PRINT "Digite a mengsaçgem:” 


430 INPUT MSS 

440 CP = CP + 1: IF CP > JLEN ( 

CS) THEN CP = 1 

450 PM = PM + 1 

460 IF PM > LEN (MSS5S) THEN 58 

Ô 

470 FS = MIDS (MSS,PM,1) 

4B0 IF FS < "A” OR FS > "Z” TH 

EN 530 

490 F = ASC (FS) - ASC ( MIDS 
(CS,CP,1)) + 65 

500 IF F < 65 THEN F = F + 26 

510 CDS = CDS + CHRS (EF) 

520 GOTO 440 

530 IF ES < "0" OR ES > "9" TH 

EN CDS = CDS + FS: GOTO 450 

540 F = ASC (FS) - ASC ( MIDS 
(CS. CP,1)) + 48 

550 IF F < 48 THENF=FÃ+ãIO: 
GOTO 550 

560 CDS = CDS +  CHR$S (EF) 

570 GOTO 440 

580 PRINT : PRINT “A mensagqem 

decodificada e: * 

590 PRINT : PRINT CDS 

600 END 


nt 


12 INPUT" (C)odificar ou (D)Jecod 

ificar? ";AS 

14 IF A$="D"THENdDO 

16 IF AS<>"C"THENIZ2 

400 CLS 

410 LINEINPUT"Palavra de código 

Tt Fa Ca 

420 PRINT"Digite a mensagem:” 

430 LINEINPUT MSS 

440 CP=CP+1L: IFCP>LEN(CS) THENCP= 

1 

450 PM=PM+1 

460 IFPM>LEN(MSS) THEN580 

470 FS$=MIDS (MSS,PM,1) 

480 IFES<"A"ORFS>"Z"THEN5S3I0 
F=ASC(F5S)-ASC(MIDS(CS,CF,1) 








1+65 
500 
510 
520 
530 
+E$S: 
540 
1+48 
550 IFF<48THENF=F+10:GOTO5S5O 
560 CD5S=CDS+CHAS (F) 

570 G0T0O440 

580 PRINT:PRINT"A mensagem deco 
dificada é:”" 

590 PRINT: PRINTCDS 

600 END 


Se você quer que o seu código seja 
realmente indecifrável, codifique a men- 
sagem usando uma segunda palavra- 
chave. Desse modo, ele se tornará à pro- 
va de espiões. Mas tenha o cuidado de 
não trocar a ordem das duas palavras- 
chave na hora de decodificar, Do con- 
trário, você poderá causar uma confu- 
são monumental, 


COMPARAÇÕES 


Uma das funções mais importantes 
do código ASCII consiste em facilitar a 
comparação de palavras (veja página 
241 e seguintes). 

Essa operação é feita letra por letra 
pelo computador. 

Suponhamos, por exemplo, que se 
queira comparar as palavras COSMO- 
NAUTA e COSMOPOLITA. O com- 
putador começará confrontando os dois 
C:; em seguida, ele passará sucessiva- 
mente para os dois O, os dois S, os dois 
M, os dois O, até chegar ao N e ao P, 

Vale lembrar que o que está sendo 
comparado não são posições alfabéticas 
arbitrárias, mas os códigos ASCII de ca- 
da caractere. 

Como P tem um valor ASCII maior 
que N, nesta comparação, a palavra 
COSMOPOLITA tem um valor maior 
do que a expressão COSMONAUTA. 
Note que nem a soma dos códigos nem 
o número de letras são levados em 
conta. 

Cada letra é comparada individual- 
mente com a sua correspondente (para 
um aprofundamento do tema, veja ou- 
tros exemplos de comparações de pala- 
vras e cordões no artigo Cadeia de Ca- 
racteres, página 241). 

A seguir, apresentamos alguns exem- 
plos de comparações de vários valores 
possíveis para A$ e B$, juntamente com 
os códigos ASCII envolvidos. E impor- 
tante comparar os valores do código de 
cada caractere aos pares: O primeiro ca- 
ractere de A$ com o primeiro de B$ e 
assim por diante, até o fim da palavra 
mais curta. 


IFE<6STHENF=F+26 
CDS=CDS+CHRS (CF) 

GoT0oO440 
IFFS<"0"0RFS>" 9" THENCD3=CDS 
G0T0450 

F=ASC(F5)-ASC(MIDS (CS,CP,1) 





A$ ASCII B$ ASCII RELAÇÃO 
ABC 65,66,67 ABC 65,66,67 A$ = B$ 


ABD 65,66,68 ABCD 65,66,67 A$>B$ 


ABD 65,66,68 ABCD 65,66,67 

AS< >B$ 

ABC 65,66,67 Abc 65,97,98 AS<BS$ 
COSMI 67.79,83 COSMO 67,79,83 


AS< B$ 
T7,I3 77,179 
$1 36,49 $1.0 36,49,46 A$< BS 


Note que no segundo e terceiro exem- 
plos é possível escrever a relação de vá- 
rias maneiras. No último exemplo, co- 
mo todos os caracteres são iguais, a pa- 
lavra mais longa é a de maior valor. 


VERIFIQUE AS ENTRADAS. 





As funções ASC e CODE funcionam 
apenas no primeiro caractere de uma va- 
riável alfanumérica. Assim, PRINT 
ASC ('“'BRASIL"') — ou PRINT CO- 
DE “BRASIL"*, no Spectrum — mos- 
trará 65, o código de B. Isto é muito útil 
para se checar comandos INPUT do 
programa. Veja, por exemplo, o progra- 
ma anterior. A linha 12 pede que você 
digite um '*C”” para codificar, ou um 
“D” para decodificar. As duas linhas 
seguintes direcionam o programa da for- 
ma adequada. Mas, para evitar que o 
computador não aceite as entradas CO- 
DIFICAR ou DECODIFICAR, escritas 
por extenso, pode-se reescrever as linhas 
14 e 16 como se segue: 


asas E bylái (o) 


l4 IF ASC(AS$)-68 THEN GOTO 400 
16 IF ASC(AS)<>67 THEN GOTO 12 


14 IF CODE A$=68 THEN GOTO 
400 
16 IF CODE AS<>67 THEN GOTO 
12 


CÓDIGOS DE CONTROLE 





Alguns códigos ASCII não têm ca- 
racteres associados. Quando você tecla 
< ENTER > ou <RETURN> omicro 
identifica o valor 13; mas, em vez de im- 
primir um caractere na tela, o cursor é 
colocado no início da linha seguinte; ou, 
como acontece no Spectrum, o progra- 
ma é listado. O código 13 é chamado de 
código de retorno do carro (Carriage 
Return; daio <CR> dos modelos Ap- 
ple). Experimente colocar no computa- 
dor PRINT “A”; CHRS (13); “B”. O 
Ra será impresso na linha abaixo do 
[ A. 


Este programa permite ver os códi- 
gos de controle: 


10 PRINT CODE INKEYS 
20 GOTO 10 


TITS 
5 AS=INKEYS: IF AS="" THEN 5 


10 PRINT ASC(AS) 
20 GOTO 10 


bico] 


5 GET AS 
10 PRINT ASC (AS) 
20 GOTO 5 


Tente teclar < ENTER> ou <ESC> 
ou pressionar a tecla de retrocesso, ou 
qualquer outra do teclado, sozinha ou 
simultaneamente com <SHIFT> ou 
<CTRL>, e vá descobrindo os códigos 
que seu micro utiliza, 

Alguns computadores usam mais es- 
ses códigos do que outros. Afinal, exis- 
tem muitos números disponíveis entre O 
e 31 e alguns acima de 90. Tais códigos 
foram originalmente definidos quando 
os computadores trabalhavam apenas 
com as antigas impressoras. Atualmen- 
te, o computador é ligado a um televi- 
sor ou monitor de vídeo e muitos des- 
ses códigos tornaram-se obsoletos. 


O Spectrum teve muitos de seus an- 
tigos códigos redefinidos, de forma a 
trabalhar com a tela de TV. A imstru- 
ção PAPER tem código 17 e INK, 16. 
Assim, para escrever a palavra “TÍTU- 
LO** em vermelho sobre fundo verde, 
é preciso digitar o seguinte: 

10 LET AS=CHRS 17+CHRS 4+CHRS 
16+CHRS 2+" TITULO” 
20 PRINT AS 

Usado muitas vezes em um progra- 
ma, esse cabeçalho precisa ser definido 
apenas uma vez. Sempre que se quiser 
usá- lo basta digitar PRINT AS. 


r 


O Apple também usa caracteres de 
controle, tanto a nível operacional co- 
mo a nível de programas. Assim, você 
deve conhecer muito bem o CTRL-S, o 
CTRL-€ ou o CTRL-D. Nesse compu- 
tador, os códigos dos caracteres de con- 
trole de CTRL-A até CTRL-Z ocupam 
os números de 1 a 26. Desta forma, 
CHRS$ (1) equivale a CTRL-A; CHRS 
(2), a CTRL-B, etc. 
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Muito úteis para uma série de truques 
de programação, os códigos 

de controle ocupam o espaço que vai 
de O a 31 no código ASCII. 

Aprenda a usá-los nos micros MSX. 


Os códigos de controle correspon- 
dem, na maioria dos microcomputado- 
res, aos números entre O e 31 no siste- 
ma ASCII, e servem para realizar uma 
série de funções relacionadas principal- 
mente com o controle do vídeo. Em ar- 
tigos anteriores desta série, mostramos 
como os diferentes fabricantes de micros 
aproveitam a faixa de códigos de O a 31 
para implementar essas funções de con- 
trole. Ao contrário do espaço de códi- 
go ASCII que vai de 32 em diante, não 
há nessa faixa qualquer padronização 
entre os diversos modelos de computa- 
dores. Vejamos agora como os usuários 
de micros da linha MSX podem explo- 
rar os seus códigos de controle. 





A FUNÇÃO CHR$ 


Embora o MSX disponha de uma te- 
cla < CONTROL >, que serve para ge- 
rar os códigos de O a 31 (por exemplo, 
pressionando-se as teclas <CON- 
TROL> e <A> simultaneamente 
obtém-se o código 1), um programa BA- 
SIC só pode acionar os códigos de con- 
trole por intermédio da função CHR$ 
(abreviatura de character). Essa função 
permite converter um código numérico 
inteiro entre O e 255 em seu caractere 
correspondente. Por exemplo, PRINT 
CHRS$ (65) escreverá na tela a letra A. 

Usando o PRINT CHRS$ dessa for- 
ma, podemos controlar diversas funções 
do vídeo, por meio dos códigos de O a 
31. A seguir, apresentamos os códigos 
que proporcionam os efeitos mais inte- 
ressantes no MSX: 

| - determina caractere gráfico 
7 - aciona o alarma sonoro 
8 - apaga o caractere antes do cursor 
9 - tabula 
10 - pula uma linha (LINEFEED) 
li - coloca o cursor na posição 1,1 
(HOME) 


12 - equivale ao CLS 
13 - retorno de carro (RETURN). 

Ao contrário dos códigos ASCII de 
32 em diante, a função CHRS$ associa- 
da aos códigos de O a 31 não imprime 
qualquer caractere visível na tela, cau- 
sando apenas um efeito imediato. 

O programa a seguir mostra uma 
aplicação interessante dos códigos de 
controle. Ele está estruturado de tal mo- 
do que, toda vez que uma mensagem de 
erro for mostrada na tela, o computa- 
dor acionará o alarma sonoro interno 
(bipe) e pulará uma linha em branco an- 
tes da mensagem. Em vez de repetir a 
mesma segiência de comandos para ca- 
da mensagem de erro, definimos uma 
variável C$, que contém os códigos 7 e 
10. Depois, basta usar o PRINT da 
mensagem, precedendo-a com essa va- 
riável. 

10 C$=CHRS(10)+CHRS(7)+"*** ERR 
O: ” 

20 CLS:PRINT "Cálculo da raiz q 
uadrada” 

30 PRINT 

35 XS$="" 

40 LINE INPUT 
";AS 

45 IF X$="" THEN END 

50 X=VAL (X8) 

60 IF X=0 THEN PRINT CS;"Entrad 
a deve ser um número”:GOTO 40 
70 IF X<O THEN PRINT CS;"Numero 
deve ser maior do que zero":GO 
TO 40 

80 PRINT 

90 PRINT "A raiz quadrada de”;X 
;:"é iqual a”; SQR(X) 

100 PRINT 

110 GoTo 40 


"ENTRE UM NUMERO: 


COMO PASSEAR PELO VÍDEO 





Outra aplicação interessante dos có- 
digos de controle é a manipulação do 
cursor de texto. Assim, os códigos 28 a 
31 movimentam o cursor da seguinte 
maneira: 


28 - move o cursor para a direita 
29 - move o cursor para a esquerda 
30 - move o cursor para cima 

31 - move o cursor para baixo. 


Um pequeno programa, que ilustra 
bem o uso destes códigos é mostrado a 
seguir: 


E ——e ec a 
















x O QUE SÃO OS CÓDIGOS 
DE CONTROLE 

m COMO UTILIZÁ-LOS 
EM PROGRAMAS BASIC 

já MENSAGENS COM SONS 


5 CLS 


10 
20 
30 


LOCATE 10,15 

FOR I=1 TO 1000 
R=INT(RND(1)*4) 

PRINT CHARS (28+R);”".”;CHRS(29 


NEXT I 


Este é um curtíssimo exemplo do cha- 
mado “passeio aleatório em duas di- 
mensões””, Com a execução do progra- 
ma, O cursor passará a se deslocar pela 
tela nas quatro direções possíveis. 

As linhas 5 e 10 limpam a tela e co- 
locam o cursor em seu centro. O laço 
que vai das linhas 20 a 40 coloca 1 000 
pontos aleatoriamente na tela. A linha 
30 sorteia um número entre 0 e 3. A li- 
nha 35 movimenta o cursor com a aju- 
da da função CHR$(28 + R) (que gera 
um número entre 28 e 31), imprime um 
ponto e recua o cursor de novo com a 
função CHR$(29). 


A TECLA DE CONTROLE 





Como foi explicado, a tecla <CON- 
TROL > serve apenas para acionar os 
códigos de controle diretamente a par- 
tir do teclado (ou seja, não é possível 
“enxertar” códigos de controle dentro 
de mensagens entre aspas, como é feito 
com os micros da linha Apple). Por ou- 
tro lado, diversas teclas já existentes no 
MSX para limpeza de tela, controle do 
cursor, etc. são duplicadas por uma com- 
binação de <CONTROL > com outra 
tecla. Por exemplo, <CONTROL> 
<I> avança uma posição de tabulação 
na tela, e equivale à tecla <TAB>. 

Entretanto, algumas funções — co- 
mo o apagamento total ou parcial de 
uma linha, o avanço do cursor até a pa- 
lavra seguinte, etc. — não têm teclas 
correspondentes, e podem ser usadas 
com vantagem na edição de programas. 

Para gerar um código de controle por 
meio da tecla <CONTROL>, basta 
lembrar-se da seguinte relação: o códi- 
go 1 corresponde à letra' A, o código 2 
corresponde à letra B, e assim por dian- 
te. Por exemplo, para fazer o cursor des- 
cer uma linha (caractere de controle cha- 
mado LINEFEED, LF, ou “alimenta- 
ção de linha””), basta pressionar conjun- 
tamente as teclas <CONTROL > eJ. 














Pratique tiro ao alvo, caçando patos 


NPR AEE E De ms Dm EsaaMMAgMdORIDOOS 15 
» no computador. Mas, na vida 


real, respeite o direito dos bichinhos 
DE TIRO ÃO PATO à existência, deixando-os 
saborear os doces frutos da liberdade. 


Se você leu o artigo anterior de Pro- 144;CHAS 145;AT dy+1,dx;CHRS 
gramação de Jogos, já deve ter grava- 146;CHRS 147 
do em fita o programa que movimenta 420 NEXT n 
uma alça de mira pela tela com auxílio 430 IF s>hs THEN LET hs=s 
do joystick. No entanto, embora seja in- 440 PRINT OVER 0; PAPER J;AT 
teressante ver como se faz isso em BA- 0,8;s:;AT 0,23:;hs 


SIC, o programa não terá muito senti- 450 PRINT OVER 0; PAPER 4; 
or Re Tião: ROnVEr un Alvo. FLASH 1;AT 10,2;"QUALQUER TECL 


E gd A PARA RECOMECAR” 
Agora, mostraremos como incluir a ei FOR n=l TO 100: NEXT n 


sub-rotina de controle do joystick em 470 IF INKEYS="" THEN GOTO 
programas de jogos. Isso é feito acres- 470 
centando-se ao programa original os 480 CLS : GOTO 125 








subprogramas apresentados a seguir. 
Dessa forma, obteremos um jogo de ti- 
ro ao pato. 

Um de cada vez, dez patos aparece- 
rão por um breve momento na tela. O 


As linhas 120, 125 e 135 cuidam da 
contagem de pontos. Como o jogo ape- 
nas começou, o recorde do momento é 
zero; ele é mostrado junto com o score. 
A variável i, de entrada do joystick, 
















objetivo do jogo é alvejá-los antes que 
eles desapareçam. A contagem de pon- 
tos depende da velocidade e da ponta- 
ria do jogador; a cada tiro perdido são 
descontados alguns pontos. A esse des- 
conto daremos o nome de multa. 

Carregue ou digite o programa ante- 
rior no computador e acrescente as li- 
nhas a seguir (evidentemente, estas va- 
riarão de acordo com o tipo de compu- 
tador ao qual estão destinadas). 


Acrescente as próximas linhas ao pro- 
grama que movimenta o joystick. 


120 LET hs=0 

125 LET i=0: PRINT PAPER 2; 
INK 7;” SCORE”";TAB 14;"RECORDE 
"ETA DEE r 

135 PRINT PAPER 3; OVER 0O;AT 
0,23;hs 

145 LET s=0 

150 FOR n=1l TO 10 

160 LET dx=INT (RND*31) 

170 LET dy=INT (BND*20)+1 

180 PRINT INK 6;AT dy,dx;CHAS 
144; CHARS 145;AT dy+1,dx;CHAS 
146; CHRS 147 

190 POKE 23672,0: POKE 23673,0 
205 PRINT GOVER O; PAPER 3J;AT 
0,8;9;" E] 

210 IF 1<>4B THEN GOTO 400 
220 IF ATTR (y,x)=14 AND ATTR 
(v+1,x+1)=14 THEN LET 9=s+260 
- (PEEK 23672): SOUND .02,30: 
GOTO 410 

230 LET s=8-20: LET 1=0 

400 IF PEEK 23572+256*PEEK 
23673<240 THEN GOTO 200 

410 PRINT INK 7;AT dy,dx; CHARS 














também torna-se zero. 
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COMO USAR A SUB-ROTINA DE EE COMO SABER SE O BOTÃO DO 
CONTROLE DO JOYSTICK JOYSTICK FOI PRESSIONADO 

O DESENHO DO PATO E COMO SABER SE O TIRO 

MOSTRE OS PATOS NA TELA - ATINGIU O ALVO 





MARQUE O TEMPO E | CONTE PONTOS E RECORDES 





O laço FOR.,.NEXT entre as linhas 
150 e 420 coloca na tela uma série de dez 
patos que o jogador tentará acertar. A 
cada volta do laço, as linhas 160 e 170 
escolhem uma nova posição para o pa- 
to. A linha 180 coloca a ave na tela, im- 
primindo os quatro caracteres (UDG) 
que formam o desenho. 

A linha 190 coloca o valor zero no 
contador de tempo. Este será usado pa- 
ra medir os segundos que o pato perma- 
necerá na tela. Quando esse tempo se es- 
gotar, o pato será desenhado em outra 
posição. 

Depois que o programa retornar da 
sub-rotina de controle do joystick, 

a linha 205 apagará o primeiro 

caractere do score. Esta é uma 
precaução para quando o score esti- 
ver diminuindo; assim, nenhuma parte 
do score anterior permanecerá na tela. 

O joystick do Atari tem um botão pa- 
ra atirar; quando acionado, esse botão 
envia ao computador o caractere de có- 
digo 48. A linha 210 detecta o tiro, mas 
só com a mira parada. É possível veri- 
ficar se foi dado um tiro com a mira em 
movimento, mas isto ocuparia mais qua- 
tro comandos IF — um para cada dire- 
ção. Não é aconselhável fazer isso em 
BASIC porque diminuiriamos a veloci- 
dade do programa. 

Caso um tiro tenha sido disparado, 
o programa verificará se o pato foi atin- 
gido, usando ATTR na linha 220. 
ATTR verifica a cor de determinada 
porção da tela. Se a cor for a do pato, 
o tiro será considerado certeiro, e o jo- 
gador ganhará pontos. O cálculo desses 
pontos é baseado no tempo gasto pelo 
jogador para acertar o pato. Cada tiro 
bem-sucedido é anunciado por um bip 
do computador. 
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Se ATTR não fornecer a cor do pa- 
to, o programa continuará na linha 230, 
onde uma multa de vinte pontos será 
subtraída do total, e o valor de i, igua- 
lado a zero para que a multa não seja 
cobrada novamente (o que só acontece- 
rá quando outro tiro for desperdiçado). 
A linha 400 verifica se o limite de tem- 
po foi ultrapassado, saltando para a li- 
nha 200, se isto ainda não tiver aconte- 
cido. Caso mais de cinco segundos te- 
nham se passado, a linha 410 fará o pa- 
to desaparecer. 

Depois que os dez patos forem colo- 
cados na tela, o programa alcançará a 


linha 430, que fará a comparação entre 
o score do jogador e o recorde atual, Se 
for o caso, o recorde será atualizado. O 
recorde eo score são mostrados pela li- 
nha 440. O programa termina com a fra- 
se usual: “Qualquer tecla para re- 
começar”. 

O nível de dificuldade do jogo pode 
ser alterado modificando-se, na linha 
400, o limite de tempo que o jogador 
tem para acertar o pato. Valores com- 
patíveis para a conquista de pontos e pa- 
ra a multa devem ser colocados nas li- 
nhas 220 e 230. 








Não há programa de tiro ao pato pa- 
rao ZX-81, mas as modificações que se 
seguem permitirão que você movimen- 
te o monstro do programa da página 316 
usando o joystick. O botão do joystick 
provoca a inversão da tela (você deve 
usar a versão completa do programa). 


115 LET A=CODE AS 

120 IF A=33 AND X>0 THEN LET X= 
130 IF A=36 AND X<28 THEN LET X 
240 XE A=35 AND Y7>0 THEN LET Y= 
150 IF A=34 AND Y<20 THEN LET 7 
155 IF A=28 THEN RAND USR 16606 











28 é o código enviado ao computador 
pelo botão do joystick. 


DM 


O programa do MSX é completado 
pelas seguintes linhas e modificações. 


10 SCREEN 1,2:KEY OFF:COLOR 15, 
1,10:R=RND (-TIME) 

20 FOR I=1 TO 64 

55 SPRITES (1)=RIGHTS(AS,32, 

70 FOR I=4 TO 10 

BO VPOKE BASE (6)+I,15*16+1 

90 NEXT 

100 VPOKE BASE (6)+30,1*16+1 

105 VPOKE BASE (6)+31,6*16+6 

110 CLS:STRIG(1I) ON:5SC=0 

120 GOSUB 4000 

130 FOR I=0 TO 32:VPORE BASE(5) 
+1, 255: NEXT 

140 FOR 1I=1 TO 22:VPOKE BASE(5) 
+31+1*32,255:VPOKE BASE (5)+32+I 
*32,255:NEXT 

150 FOR I=0 TO 31:VPOKE BASE(5) 
+23*32+1, 255: NEXT 

160 GOSUB 3000 

180 D=10 

190 TIME=0 

210 PUT SPRITE 1, (DX,DY),10 

220 ON STRIG GOSUB 2000,2000,20 
00,2000,2000:IF D<1 THEN 250 
230 IF TIME<500 THEN 200 

240 D=D-1:IF D>0 THEN GOSUB 300 
0:GOTO 190 

250 GOSUB 4000 

260 FOR 1=257 TO 2B6:VPOKE BASE 
(5) +I, 245: NEXT 

280 LOCATE 1,2:PRINT "QUER JOGA 
R NOVAMENTE (S/N) 77 

290 AS=INKEYS:IF AS<>"S” AND AS 
<>"N” THEN 290 

300 IF A$="S”" THEN 110 

310 SCREEN 0:COLOR 15,4,4:END 
2000 IF ABS(X-DX)>1 AND ABS(Y-D 
Y)>1 THEN 2070 

2010 PUT SPRITE 1, (DX, 209) 

2020 PLAY "T25506CL32EG” 

2030 GOSUB 3000 

2040 SC=SC+550-TIME:GOSUB 4000 
2050 D=D-1:TIME=0 

2060 RETURN 

2070 PLAY "T25501DDE” 

2080 SC=SC-25:GOSUB 4000 

2090 RETURN 

3000 DX=INT(RND(1)*220+10) :DY=I 
NT (RND (1) *145+25) : RETURN 

4000 FOR 1=33 TO 62:VPOKE BASE( 
5)+1, 245: NEXT 


4010 LOCATE 0,1:PRINT "SCORE:”; 
:LOCATE 7,1:PRINTSC; 

4020 IF SC>HI THEN HI=SC 

4030 LOCATE 14,1:PRINT "RECORDE 
:" ; :LOCATE 24,1:PRINT HI; 

4040 RETURN 

5000 DATA 3, 12,16, 324,3 
2 » 64 , 64 , 127 , 64, 684 ,3 
End AS E sd Tu 4EM 
, 252 432; 230 p I30 , LOS à 
AO , 255 ABS, SED AMD 
130 , dIZ 4 J5E | BEM +, D 

5010 DATA lá, 27, 127, 31, 15, 
?. 15, 31, 31), 29, 30, 15, 3, 
de do 340, Dow DB, 0, 0 492, 0 
2, 188, 206, 30, 124, 248, 224, 
64, 64, 224 


A linha 10 foi modificada para mu- 
dar as cores da tela e iniciar o gerador 
de números aleatórios. 

A linha 20 foi alterada para poder ler 
os dados adicionais da linha 5010. O 
sprite do pato é criado pela linha 55. 

As linhas 70 a 105 mudam a tabela 
de cores — BASE (6) — com o objetivo 
de alterar as cores dos caracteres. Isto 
não é essencial ao nosso programa, mas 
permitirá que você modifique os valo- 
res Pe T do comando VPOKE BASE 
(60) + E, T*16,P (P é à cor de fundo 
e T, a cor de frente). 

A linha 110 apaga a tela e liga a fun- 
ção STRIG (1) que permite a detecção 
de um tiro (ela também reduz o score a 
zero). Quando o botão de tiro do joys- 
tick | é pressionado, a função STRIG 
(N) ON desvia o curso do programa pa- 
ra o endereço do comando ON STRIG 
GOSUB. N determina o joystick: 1 e 3, 
joystick da direita; 2 e 4, joystick da es- 
querda. O número O permite à tecla de 
espaços disparar tiros. 

A linha 120 chama a sub-rotina 4000, 
que coloca o score e o recorde na tela, 

As linhas 130 a 150 desenham uma 
moldura vermelha, colocando na tela 
uma série de caracteres com VPOKE. A 
cor da moldura é determinada pelá li- 
nha 105. 

A posição em que o pato val apare- 
cer é escolhida ao acaso pela linha 160. 
As linhas 180 e 190 estabelecem as con- 
dições iniciais: dez patos na variável D, 
score zero e contador de tempo — TI- 
ME, uma variável interna do MSX — 


também igual a zero. 

A linha 210 desenha o pato. A linha 
220 diz ao programa para onde ir, caso 
o botão de tiro seja pressionado. São ne- 
cessários cinco endereços após ON 
STRIG para cobrir os valores de O a 4. 
Se, ao retornar da sub-rotina 2000, on- 
de é verificado se o tiro atingiu o alvo, 
não houver mais patos — ou seja, D<1 
— O programa irá para a linha 250. 

A linha 230 verifica se o tempo que 
cada pato pode ficar na tela foi ultra- 
passado. Se isto ainda não aconteceu, 
o programa voltará à linha 200. 

Caso o pato não seja atingido den- 
tro do prazo, a linha 240 diminuirá o nú- 
mero de aves. Se ainda houver patos, a 
nova posição será calculada pela sub- 
rotina 3000 e o programa voltará para 
a linha 190. 

Quando não houver mais patos, a li- 
nha 250 chamará a sub-rotina 4000, que 
mostrará o placar. 

A linha 280 faz então a velha pergun- 
ta: “Quer jogar novamente?” (a linha 
260 apaga a região onde é escrita a men- 
sagem). Caso a resposta seja afirmati- 
va, a linha 300 recomeçará o jogo. Ca- 
so seja negativa, a linha 310 terminará 
com ele. À linha 290 cuida das outras 
respostas. 

A sub-rotina 2000 verifica se o tiro 
dado acertou o pato. Na linha 2000, as 
condições ABS (X-DX)>1 e ABS (Y- 
DY)> 1 dão uma certa margem de erro 
à posição da mira. Se exigirmos que as 
coordenadas do pato — DX, DY — se- 
jam exatamente iguais às coordenadas 
damira— X, Y —,o jogo ficará muito 
dificil. 

A linha 2010 faz com que o sprite do 
pato desapareça da tela, pois torna sua 
coordenada vertical igual a 209. Uma 
pequena melodia celebra o sucesso do 
jogador, na linha 2020. A linha 2030 
chama a sub-rotina 3000 que calcula 
uma nova posição para o pato. 

Os pontos a que o jogador fez jus são 
calculados pela linha 2040 com base no 
tempo que ele levou para acertar o pa- 
to. A sub-rotina 4000 mostra o novo 
placar. A linha 2050 reduz em 1 o nú- 
mero de patos e faz o contador de tem- 
po começar novamente do 0. 





Caso o jogador erre o tiro, a linha 
2070 produzirá algumas notas dissonan- 
tes. Uma multa de 25 pontos será então 
cobrada e o placar, modificado e mos- 
trado ao jogador. 

A linha 3000 chamada como sub- 
rotina calcula ao acaso a nova posição 
do pato. 

A sub-rotina que começa na linha 
4000 mostra na tela o score, atualizan- 
do e exibindo o recorde. 

Os valores da linha 5010 contêm o 
padrão do sprite do pato. 

O nível de dificuldade do jogo pode 
ser modificado alterando-se o prazo 
que o jogador tem para acertar o pato. 
Isso é feito na linha 230, Acompanhan- 
do essa alteração, o cálculo dos pontos 
(na linha 2040) e da multa (na linha 
2080) deve sofrer modificações pro- 
porcionais. 


[1 


Complete o programa anterior com 
“ as linhas: 


60 HOME : HGR : SCALE= 1: ROT= 
0O:X = 130:Y = 90 

100 DX = INT ( BND (1) * 256): 

DY = INT ( RND (1) * 138) 

110 D = 10:SC = O 

120 cv = 0 

210 HCOLOR= 3: GOSUB 700 

220 IF PEEK ( - 16287) > 127 

OR PEEK (16286) > 127 THEN GO 

SUB 1000: IF D < 1 THEN 250 

230 IF CV < 40 THEN 200 

240 D = D- 1: IFD> O THEN G 

OSUB 1500: GOTO 120 

250 : HOME HTAB 5: VTAB 23: P 

RINT "SCORE = ":SC; 

260 IF SC > HI THEN HI = SC 
270 PRINT TAB( 20);"RECORDE = 


280 PRINT TAB( 5);"QUER JOGAR 
NOVAMENTE (S/N) ? * 

290 GET AS: IF AS < > "S” AND 
AS < > "Nº THEN 290 

300 IF AS = "S” THEN 60 

310 HOME : TEXT : END 


500 EX = X:LY =» Y:CV = CV + à 


700 DRAW 1 AT DX,DY 

710 DRAW 2 AT DX,DY + 8 

720 DRAW 3 AT DX + 8,DY 

730 DRAW 4 AT DX + B,DY + 8 
740 RETURN 





1000 IF ABS (X- DX - 4) > 68 
OR ABS (Y - DY - 4) > & THEN 1 
070 


1010 FORI = 1TOz0 

1020 P = PEEK ( - 16336): NEXT 
1030 GOSUB 1500 

1040 SC = SC + 50 - CU 

1050 D = D- 1:CV = O 

1060 RETURN 

1070 FORI=-1TOS 

1080 P = PEEK ( - 16336): NEXT 


1090 5€C = SC - 5 


1100 RETURN 

1500 HCOLOR= 0: GOSUB 700 

1510 HCOLOR= 3: DRAW 5 AT X,Y 
1520 DX = INT ( BND (1) * 256) 
:DY = INT ( RND (1) * 138) 


1530 RETURN 


O HOME da linha 60 foi acrescenta- 
do para que o placar pudesse ser mos- 
trado. A linha 110 calcula ao acaso uma 
posição para o pato. As linhas 120 e 130 
estabelecem condições iniciais para O 
número de patos (D), para o score (5) 
e para o contador de tempo (CV). 

A linha 210 desenha o pato. A linha 
220 verifica se o botão do joystick foi 
pressionado — neste caso, o valor de um 
dos endereços dos comandos PEEK se 
torna maior que 127. Caso o programa 
não funcione, o joystick pode vir a uti- 
lizar o endereço — 16285. 

A linha 230 verifica se o prazo que 
o jogador tem para acertar o pato se es- 
gotou, voltando para a linha 200, se is- 
to ainda não aconteceu. 

Caso um dos patos não tenha sido 
abatido dentro do limite de tempo, seu 
número diminuirá em um. Se ainda so- 
brarem patos, a sub-rotina 1500 dese- 
nhará um deles na tela e o jogo conti- 
nuará na linha 190. 

Se os dez patos já foram desenhados, 
o jogo terminará e o score será exibido 
na porção inferior do vídeo. A linha 260 
atualiza o recorde, que é impresso pela 
linha 270. Uma opção de jogar nova- 
mente é então oferecida ao jogador. 

A linha 500 foi modificada para in- 
cluir um contador de tempo. A sub- 
rotina 700 desenha ou apaga o pato da 
tela, conforme a definição de cor atual. 

As linhas de 1000 a 1100 verificam se 


o tiro foi certeiro. As condições do IF 
da linha 1000 permitem uma certa mar- 
gem de erro ao tiro. Se exigirmos que 
as coordenadas do pato coincidam com 
as da mira, o jogo se tornará muito difí- 
cil (lembre-se de que não conseguimos 
controlar totalmente o cursor em BA- 
SIC: além disso, a mira se move de oito 
em oito pontos). 

As linhas 1020 e 1030 produzem uma 
série de vinte “cliques” no alto-falante, 
informando o sucesso do tiro. Um no- 
vo pato é gerado pela linha 1030. Os 
pontos ganhos são então calculados, 
com base no tempo gasto pelo jogador 
para abater a ave. O número de patos 
é diminuído e o contador de tempo vol- 
ta à Zero. 

Se o tiro não atingir o pato, as linhas 
1070 e 1080 emitirão três “cliques” e 
uma multa de cinco pontos será cobra- 
da. 

A sub-rotina 1500 apaga o pato de 
sua antiga posição — linha 1500 — e de- 
senha a mira nesse lugar, calculando ao 
acaso uma nova posição. 

O nível de dificuldade do jogo pode 
ser alterado, modificando-se o limite de 
tempo na linha 230. A contagem de pon- 
tos e a multa devem ser alteradas pro- 
porcionalmente, nas linhas 1040 e 1090. 


ol 


Para o TK-2000, acrescente as linhas 
válidas para o Apple, com as seguintes 
modificações: 


220 IF A = 46 ORA = 76 THEN 
GOSUB 1000: IF D«< 1 THEN 250 
5720 IF A = 46 OR A=- 76 THEN 
RETURN 


Essas linhas verificam se um dos bo- 
tões de tiro do joystick da microdigital 
foi pressionado. 46 e 76 são os códigos 
que os botões de tiro enviam ao micro. 


Ao adicionar as próximas linhas, vo- 
cê terá o jogo completo. 
80 FOR K=1536 TO 2272 STEP 32 


90 READ A,B:POKE K,A:POKE K+1,B 
100 NEXT 


À - /) 
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110 GET(0,0)-(13,11),D,G 

120 GET(0,12)-(13,23),H,6 

150 DX=RND(239)+1:DY=RND(178)+1 
180 D=10:5C=0 

190 TIMER=0 

210 PUT(DX,DT)-(DX+13,DY+11),D, 
OR 

220 IF (PEEK(65280)AND1)=0 GOSU 
B 2000:IF D<l THEN 250 

230 IF TIMER<S200 THEN 200 

240 D=D-1:IF D>O GOSUB 3000:GOT 
o 190 

250 CLS:PRINT 8139," SCORE=";SC 
260 IF SC>HI THEN HI=SC 

270 PRINT €234,"RECORDE=";HI 
280 PRINT €389,”" QUER RECOMECAR 
(S/N) 7?” 

290 AS=INKEYS:IF AS<>"S” AND AS 


<>"Nº THEN 290 

300 IF AS="S”* THEN 130 

310 END 

2000 IF PPOINT(X,Y)=1 THEN 2070 
2010 PUT(XK-6,Y7-5)-(K+7,7+5),H,P 
SET 

2020 PLAY "T5S004CEEEG”" 


2030 GOSUB 3000 


2040 SC=5C+250-TIMER 

2050 D=D-1:TIMER=0 

2060 RETURN 

2070 PLAY "T25001DDE” 

2080 SC=SC-10 

2090 RETURN 

3000 PUT(DX,DY)-(DX+13,DY+11),B 


+ PSET 

3010 PUT(XK-B,Y-5)-(X+9,Y+5),85,P 
SET 

3020 DX=RND (239) +1:DY=RND(178)+ 
1:RETURN 

4020 DATA 4,0,25,0,149,0,21,0,5 
,/0,5,64,5,80,21,148,22,148,22,8 
4,21,84,5,80 

4030 DATA 48,48,0,0,195,12,51,4 
8,15,192,51,48,204,204,15,192,5 
1,48,192,12,0,0,51,48 


Dois desenhos estão contidos nas li- 
nhas DATA 4020 e 4030: o pato e o que 
restou dele após ser atingido pelo tiro. 
Os números são lidos e colocados na tela 
pelas linhas 80 a 100 com auxílio de co- 
mandos POKE. Dois comandos GET 
são usados para colocar o pato na ma- 
triz D e o efeito do tiro em H. 

A linha 150 seleciona ao acaso uma 
posição para o pato, enquanto a linha 
210 utiliza os valores de DX e DY para 
desenhá-lo na tela. 

Os valores iniciais do número de pa- 





tos, do score e do contador de tempo são 
estabelecidos pelas linhas 180 e 190. 

Os tiros são detectados pela linha 
220. Se o botão da direita for pressio- 
nado, o bit O do endereço 65280 da me- 
mória mudará de 1 para O; se o botão 
pressionado for o da esquerda, o bit mu- 
dará de O para 1, A linha 220 mostra co- 
mo verificar essas mudanças em 65280. 
Se utilizarmos os comandos PEEK e 
ANDI e pressionarmos o botão da di- 
reita, teremos o valor zero. PEEK e 
AND2 verificam o botão da esquerda. 
Tal como está, a linha 220 se refere ao 
botão da direita. Se ele for pressionado, 
o programa será desviado para a sub- 
rotina 2000, que verificará se o tiro acer- 
tou o alvo, 

A parte final da linha 220 averigua 
se os dez patos já foram desenhados; se 
a resposta for positiva, o programa irá 
para a linha 250. 

Uma vez pressionado o botão do 
joystick, a linha 2000 verifica a cor do 
ponto que está no centro da mira. Se a 
função PPOINT sugerir que a cor é ver- 
de, isso significa que o jogador errou o 
alvo, e o programa irá para a linha 2070, 
que produzirá um som de erro. Uma 
multa de dez pontos será cobrada e a 
sub-rotina terminará na linha 2090, 

Se a cor no centro da mira não for 
verde, isso quer dizer que o tiro atingiu 
o alvo. Um desenho será colocado so- 
bre o pato, e se ouvirá um som de su- 
cesso. A seguir, é chamada a sub-rotina 
3000, Sua função é apagar o que restou 
do pato e desenhar a mira no mesmo lo- 
cal. A linha 3020 calcula ao acaso a no- 
va posição do pato. 

A linha 2040 calcula o score. Este de- 
pende do tempo levado para acertar o 
pato. O número de aves é diminuído de 
um a cada exemplar abatido e o conta- 
dor de tempo recomeça de zero. 

Após completar a sub-rotina, o pro- 
grama retorna à linha 230, onde é veri- 
ficado o prazo para o pato ser atingido. 
Se a variável TIMER for menor que 
200, o programa voltará à linha 200. Ca- 
so contrário, a linha 240 diminuirá o nú- 
mero de patos, verificando se sobrou al- 
gum. Em caso positivo, a sub-rotina 
3000 apagará a ave restante e a linha 
3020 desenhará um novo pato. 





Se os patos tiverem acabado, o score 
e o recorde serão mostrados pelas linhas 
250 a 270. Estas também atualizam o 
recorde. 

As linhas 280 a 310 oferecem ao jo- 
gador a possibilidade de jogar no- 
vamente. 


O que fazer para transformar o dese- 
nho do pato em um alvo diferente? 

A resposta depende do computador 
que estamos usando. Basicamente, de- 
vemos alterar as linhas DATA e, talvez, 
as linhas que colocam caracteres 
(UDG) na tela. 

O programa do Spectrum usa um 
conjunto de quatro UDG definidos nas 
linhas 1000 a 1030. Para conjuntos 
maiores, a linha 180, que coloca o de- 
senho na tela, usando PRINT, deve ser 
modificada. 

Usuários do MSX também precisa- 
rão mudar as linhas DATA. Se usarem 
mais de um sprite, o tamanho do FOR 
da linha 20 deverá ser alterado e no- 
vos PUT SPRITE, acrescentados. É 
possível também que sejam necessá- 
rias algumas modificações nos coman- 
dos que contêm coordenadas. O pro- 

| grama editor de sprites que fornecemos | 


| pode ser útil como ponto de referência. 


A chave da modificação das linhas | 
DATA do Apple e do TK-2000 está no | 
programa editor de tabelas de figuras. 
A sub-rotina 700 deve ser alterada em 

| caso de modificação do tamanho da fi- 
gura. Neste caso, todos os comandos 
que lidam com coordenadas devem ser 
| igualmente alterados. 

Já no TRS-Color é muito simples 
criar caracteres UDG de qualquer tama- 
nho. Mude as linhas DATA e os 
FOR...NEXT que as lêem. Talvez seja 
necessário mudar também as coorde- 
nadas dos comandos PUT e GET. 
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amas. 

À seguir faz conversões 
indo até mesmo medi- 
quentes, como a de pres- 
tros de mercúrio (abrevia- 
HG). 

ente, digite o programa e exe- 
menu de opções aparecerá 







Adotádo pela maioria dos países do 
qundo ocidental, o sistema métrico de- 
cimal de pesos € medidas tem contribuí- 
do, desde o seu surgimento no século 
XVIII, para facilitar as relações comer- 
ciais e o intercâmbio cultural entre os 
povos. Os Estados Unidos e a Grã 
Bretanha, porém, permanecem avesgos | 
a ele, preferindo empregar seus própiãlos pente. A primeira delas (SAIR) 
sistemas. Essa divergência de crit que você retorne ao BASIC, en- 
tem criado não poucos ca téc. D as outras se referem aos tipos de 
nicos, pois grande parte das má Eu des que podem ser convertidas. As 
e ferramentas em circulação nc has possíveis são: comprimento, 
do mundial é produzida nesses à, Volume, massa (ou peso), pressão 
ses, exigindo constantes co 'emperatura. 
medidas, como, por exemp As opções são precedidas por núme- 
, tos situados à sua esquerda. Para sele- 
cionar uma delas, pressione a tecla com 
o número correspondente. Para conver- 
ter, por exemplo, unidades de compri- 
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Você tem dificuldade para descobrir 
quantas polegadas há em um 

metro ou quantos litros contém um 
galão? O programa conversor 

de INPUT resolve esse problema. 





mento, pressione a tecla “*1"". Não im- 
porta, por enquanto, se a conversão se- 
rá do sistema métrico decimal para o sis- 
tema britânico ou vice-versa. 


QUAIS UNIDADES 





Depois de fazer sua escolha a respei- 
to do gênero de conversão, pressione a 
tecla com o número correspondente. O 
computador mostrará então um segun- 
do menu, que lhe permitirá definir a uni- 
dade a ser convertida. 

Assim, se você pressionou a tecla “1” 
para converter unidades de comprimen- 
to, tem agora uma lista de todas as uni- 
dades possíveis (polegadas, pés, milime- 
tros, centimetros, metros, etc.). Se qui- 
ser converter polegadas em unidades de- 
cimais, pressione ''1'* novamente edi: 
gite O número de polegadas, Não se es- 
queça de teclar <ENTER> ou <RE- 
URN> depois disso. 






ENCONTRE AS RESPOSTAS | 


“o computador faz as conversões e a 
es ir mostra os resultados em todas as 
nidades de um dos sistemas de medi- 
às (métrico decimal ou britânico). Des- 
É totiha: se você digitar um valor em 
Rr terá a resposta em milime- 
Os, centimetros, metros e quilômetros. 
* Depois de mostrar todos os valores, 
c Pein esperará até que uma te- 
1 Seja pressionada para prosseguir. Se 
a for <ENTER> ou <RETURN>, 
angra voltará a mostrar o menu 
E. Se você quiser continuar a 
Ç popester o mesmo tipo de unidade, 
alquer outra tecla o levará ao menu 
erior, 
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| 10 APLICACÕES 10 a 
) E CONVERSÃO DO SISTEMA ÁREA, PESO, COMPRIMENTO, 
—MÉTRICO PARA O SISTEMA “VOLUME, PRESSÃO É E 
BRITÂNICO E VICE-VERSA A QESar TEMPERATURA 
E COMO USAR O PROGRAMA EE | CONVERSÃO DE UNIDADES 
EE  COMOCONVERTER VALORES DE MISTAS E FRAÇÕES 


Para interromper o programa, retor- 
ne ao menu principal e tecle “O” para 
a opção SAIR. 


UNIDADES MISTAS 





É possível ainda que você precise con- 
» verter o valor de uma medida britânica 
em que haja unidades e subunidades. 
Tomemos, por exemplo, dois pés e seis 
polegadas. Há duas maneiras de resol- 

ver o problema. 

O programa aceita números que não 
sejam inteiros; assim, se você souber 
quantas polegadas há em um pé, pode 
calcular a fração decimal corresponden- 

| te é digitá- la no computador. Neste ca- 
so não há dificuldade, visto que seis po- 
legadas são exatamente meio pé. Assim, 
você digitaria 2.5. 

O segundo método (mais empregado 
no caso de frações de cálculo dificil) 
EOnsiste em converter o valor em duas 
elapas. Dessa forma, passe para O SIS- 
e o decimal, em primeiro lugar, o va- 
— Jor expresso em pés; ertá depois 0 | 
Ea valor em polegadas. Em seguida, tudo 

























+ - Tesultados (lembre-se de somar sempre 
t valores da mesma unidade decimal). 
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o que você tem a fazer é somar os dois 


o É E 












Se ocorrer o contrário, ou seja, se O oi 


ETROS, 39370,KILOMETROS 

40 FOR K=0 TO 6:READ A(K) ,AS(K) 
:NEXT 

50 DATA 1, POLEGADAS QUADRADAS, 1 
4.0145E9,MILHAS QUADRADAS, .155, 
CENTIMETROS QUADRADOS, 1550,METR 
OS QUADRADOS, 1.55E7, HECTARES 

60 FOR K=0 TO 6:READ V(K), VS(K) 
“NEXT 

70 DATA 1, POLEGADAS CUBICAS,172 
8, PES CUBICOS,34.67,PINTAS,277. 
36,GALOES, . 06102, CENTIMETROS CU 
B1IC0s,61.024,LITROS,61024,METRO 
8 CUBICOS 

B0 FOR K=0 TO 5:READ M(K),MS(K) 
“NEXT 

90 DATA 1,0ONCAS,16,LIBRAS, 35840 
+ TON. INGLESAS, .03527,GRAMAS, 35 
.27,KILOGRAMAS, 35270, TON. METRI 
CAS 

100 FOR K=0 TO 4: READ P(K) 
K) :NEXT 


PSC 





110 DATA 1,PS1,51.73,MM HG,68B95 
+ N/METRO QUADRADO, .0681,ATMOSFE 
RAS,68.95,MILIBARES 
120 CLS: PRINT” 

IA (0-6)7”" 

130 PRINT €72,"0- SAIDA": PRINT 
8136,"1- COMPRIMENTO” : PRINT €20 
0,"2- AREA": PRINT 8264," 3- VOLU 
ME" :PRINT €328,"4- PESO": PRINT 
€8392,"5- PRESSAO": PRINT €6456,"6 
= TEMPERATURA” 

140 AS=INKEYS:IF AS<"0" OR AS>" 
6" THEN 140 

150 IF A$="0" THEN CLS: END 

160 CLS:ON VAL(AS) GOSUB 1000,1 
500,2000,2500,3000,3500 

170 GOTO 120 

1000 PRINT €9,"comprimento”:PRI 
NT 634," SELECIONE UNIDADE ORIGI 
NAL” :FOR K=0 TO 7:PRINT €136+32 
*K,K+1;"- ";LS(K) :NEXT 

1010 BS=INKEYS:IF BS<"1” OR BS> 
"8" THEN 1010 


QUAL CATEGOR 





1020 B=VAL (BS)-1:CLS:PRINT” INT 
RODUZA O NUMERO DE ";LS(B) 

1030 INPUT VL 

1040 CLS:PRINT VL;L3S(B);” EQUIV 

ALE A * 

1050 IF B>3 THEN 1080 

1060 FOR K=0 TO 3:PRINT €96+KA46 

4,VL*L(B)/L(K+4),LS(K+4) :NEXT 
1070 GOTO 1090 

1080 FOR K=0 TO 3:PRINT €696+K*6 
4,VL*L(B)/L(K),LS(K) :NEXT 

1090 AS=INKEYS:IF AS="" THEN 10 

90 

1100 IF AS=CHR$ (13) THEN RETURN 
ELSE CLS:GOTO 1000 

1500 PRINT €13,"area”":PRINT €35 
+» BELECIONE UNIDADE ORIGINAL” :F 

OR K=0 TO 6:PRINT €131+32*K,K+1 
"= ":AS(K) :NEXT 

1510 BS=INKEYS:IF BS<"1" OR B8> 
"7º THEN 1510 

1520 B=VAL (B8)-1:CLS:PRINT” 

RODUZA O NUMERO DE ";AS(B) 
1530 INPUT VL 

1540 CLS:PRINT VL;AS(B);” EQUIV 

ALE A * 

1550 IF B>3 THEN 1580 

1560 FOR K=0 TO 2:PRINT €96+K*6 

4, VL*A(B)/A(K+d), AS (K+4) :NEXT 
1570 GOTO 1590 

1580 FOR K=0 TO 3:PRINT €96+K*6 

4, VL*A(B) /A(K) ,AS(K) :NEXT 

1590 AS=INKEYS:IF AS="" THEN 15 

90 

1600 IF AS=CHR$ (13) THEN RETURN 
ELSE CLS:GOTO 1500 

2000 PRINT €12,"volume”:PRINT & 
35," SELECIONE UNIDADE OABIGINAL" 
:FOR K=0 TO 6:PRINT €133+32*K,K 

+1;"- ":;VS(K) :NEXT 

2010 BS=INKEYS:IF BS$<"1”" OR B$S> 
"7" THEN 2010 

2020 B=VAL (BS)-1:CLS:PRINT" INT 

RODUZA O NUMERO DE ":;VS(B) 

2030 INPUT VL 

2040 CLS:PRINT VL;VS(B);” EQUIV 

ALE A * 

2050 IF B>3 THEN 2080 

2060 FOR K=0 TO 2:PRINT E96+K*6 
4, VL*V(B) /V(K+4), VS (K+4) :NEXT 
2070 GOTO 2090 

2080 FOR K=0 TO 3:PRINT €96+K*6 

4, VL*V(B) /V(K), VS (K) «NEXT 

2090 AS=INKEYS:IF AS$="" THEN 20 
90 

2100 IF AS=CHAS (13) THEN RETURN 
ELSE CLS:GOTO 2000 

2500 PRINT €13,"peso”:PRINT 635 
| SELECIONE UNIDADE ORIGINAL” :F 
OR K=0 TO 5:PRINT €136+32*K,K+1 
"= ":MS(K) :NEXT 

2510 BS=INKEYS:IF BS<"1” OR BS> 
“6” THEN 2510 

2520 B=VAL (B3S)-1:CLS:PRINT” INT 
RODUZA O NUMERO DE ";MS(B) 

2530 INPUT VL 

2540 CLS:PRINT VL;MS(B);”" EQUIV 
ALE A ” 

2550 IF B>2 THEN 2580 

2560 FOR K=-0 TO 2:PRINT €096+K*6 
4, VL*M(B)/M(K+3),MS (K+3) :NEXT 
2570 GOTO 2590 

2580 FOR K=0 TO 2:PRINT €96+K*6 


INT 


4, VL*M(B) /M(K) MS (K) :NEXT 

2590 AS=INKEYS:IF AS="" THEN 25 

90 

2600 IF AS=CHR$ (13) THEN RETURN 
ELSE CLS:GOTO 2500 

3000 PRINT €11,"pressao”":PRINT 

836," SELECIONE UNIDADE ORIGINAL 
":FOR K=0 TO 4:PRINT €134+32*K, 

K+1;"- ";PS(K) :NEXT 


3010 BS=INKEYS:IF BS<"1”" OR B$>' 


"5" THEN 3010 

3020 B=VAL (BS)-1:CLS: PRINT” INT 
RODUZA O NUMERO DE ";PS(B) 

3030 INPUT VL 

3040 CLS: PRINT VL;PS(B);” EQUIV 

ALE A * 

3050 T=0:FOR K=0 TO 4:IF K=B THB 
EN 3070 

3060 PRINT €96+T*r64,UVL*P(K) /P(B 
|, PS(K) :T=T+1 

3070 NEXT 

3080 AS=INKEYS:IF AS="" THEN 30 
80 

3090 IF AS=CHRS (13) THEN RETURN 
ELSE CLS:GOTO 3000 

3500 CLS: PRINT €10,"temperatura 
": PRINT 637," SELECIONE CONVERSA 
O : ":PRINT”" CENTIGRADOS PARA F 

AHRENHEIT (C) FAHRENHEIT PARA C 
ENTIGRADOS (F)" 

3510 BS=INKEYS:IF BS<>"C” AND B 
S$<>"F” THEN 3510 

3520 IF B$="C” THEN 3560 

3530 PRINT” INTRODUZA GRAUS FAH 
RENHEIT": INPUT VL 

3540 CLS: PRINT €33,VL;"GRAUS FA 
HRENHEIT EQUIVALEM A” 

3550 PRINT €97, (VL-32)*5/9;"GRA 
US CENTIGRADOS":GOTO 3590 

3560 PRINT” INTRODUZA GRAUS CEN 
TIGRADOS”" : INPUT VL 

3570 CLS: PRINT €33,VL;"GRAUS CE 
NTIGRADOS EQUIVALEM A” 

3580 PRINT 897,32+VL*9/5;,"GRAUS 
FAHRENHEIT” 

3590 AS=INKEYS:IF AS="" THEN 35 

90 

3600 IF AS=CHAS (13) THEN RETURN 
ELSE CLS:GOTO 3500 


5 POKE 23658,8 

10 DIM L(8): DIM LS(8,12): 
DIM A(7): DIM AS(7,16): DIM V 
(7): DIM VS(7,16): DIM M(6): 
DIM V(7): DIM V$(7,12): DIM M 
(6): DIM M$(6,12): DIM P(5): 
DIM PS(5,17) 

20 FOR K=1 TO B&B: READ L(K),LS$S 
(K) : NEXT K 

30 DATA 1," POLEGADAS”,12,"PES 
"36," JARDAS” ,63360,"MILHAS”, 
«03937, "MILIMETROS”,.3937,"CE 
NTIMETROS”,39.37,"METROS”, 
39370," QUILOMETROS” 
40 FOR K=1 TO 7: READ A(K),AS 
(K): NEXT K 

50 DATA 1," POL. QUADRADAS”, 144 
» PES QUADRADOS” ,6272540,"ACR 
ES",4.0145E9,"MILHAS QUADRADA 
8”,.155,"CENT.QUADRADOS”, 
1550,"METROS QUADRADOS”, 


1.55E7,"HECTARES" 
60 FOR K=1 TO 7: 
(K): NEXT K 

70 DATA 1,"POL.CUBICAS”",1728B, 
"PES CUBICOS”,34.67,"PINTS”, 
2/7.36,"GALOES",.06102,"CENT. 
CUBICOS”",61.024,"LITROS”, 
61024,"METROS CUBICOS" 

BO FOR K=1 TO 6: READ M(K),MS 
(K): NEXT K 

90 DATA 1,"ONCAS",l16,"LIBRAS" 
|, 35840,"TON. INGLESAS" ,.03527, 
"GRAMAS", 35.27," QUILOGRAMAS", 
35270," TON.METRICAS" 
100 FOR K=1 TO 5: READ P(K),PS 
(K): NEXT K 
110 DATA 1,"LIBRA/POL.QUADR.", 
51.73,"mmHG",6895,"N/METRO QUA 
DR.”",.0681,"ATMOSFERAS",68.95, 


READ V(K),VS 


"MILIBARES" 

120 CLS : PRINT  INVERSE 1;'" 
TAB 5;"QUE CATEGORIA (0 A 6)?7" 
“TAB 31;:" " 


130 PRINT AT 6,8;"0- SAIDA”;AT 
8,8;"1- COMPRIMENTO" ;AT 10,8;" 
2- AREA";AT 12,8;"3- VOLUME”; 
AT 14,8;"4- PESO";AT 16,8;"5- 


PRESSAO" ;AT 18,8;"6- TEMPERATU 
RA" 
140 LET ZS=INKEYS: IF Z$<"0” 


OR Z5>"6" THEN GOTO 140 


150 IF Z$="0" THEN CLS 
STOP 


160 CLS : GOSUB 1000+(VAL Z$-1 
)*500 

170 GOTO 120 
1000 PRINT INVERSE 1;AT 0,12;*" 


COMPRIMENTO ": PRINT AT 2,6;"5 
ELECIONE UNIDADE ORIGINAL": PRI 
NT : FOR K=1 TO B: PRINT 'TABE 1 
0;K;"- ":LS(K): NEXT K 
1010 LET BS=INKEYS: IF BS<"1" O 
AR B$>"B” THEN GOTO 1010 
1020 LET B=VAL BS: INPUT "INTRO 
DUZA NUMERO DE "; (LS(B)),VL 
1040 CLS : PRINT AT 2,4;VL;" *; 
LS(B);" EQUIVALE A * 

1050 IF B>4 THEN JGoTo 1080 
1060 FOR K=1 TO 4: PRINT AT K*2 
+4,3;VL*L(B) /L(K+4) ; TAB 18B;LS(K 
+d): NEXT K 

1070 GOTO 1090 

1080 FOR K=1l TO 4: PRINT AT K*2 
+d,3;VL*L(B)/L(K);TAB 18;LS(K): 

NEXT K 
1090 LET ZS=INKEYS: 
EN GOTO 1090 
1100 IF ZS=CHRS$ 13 THEN RETURN 


1110 CLS : GOTO 1000 

1500 PRINT INVERSE 1;AT 0,13;” 
AREA “: PRINT AT 2,6;"SELECION 
E UNIDADE ORIGINAL”: PRINT : FO 
R K=1 TO 7: PRINT 'TAB 10;K;"- 
";AS(K): NEXT K 

1510. LET BS=INKEYS: IF BS<"1" O 
R B$>"7” THEN GOTO 1510 

1520 LET B=VAL BS: INPUT "INTRO 
DUZA O NUMERO DE "; (AS(B)),VL 
1540 CLS : PRINT AT 2,4;VL;" "; 
AS(B);” EQUIVALE A " 

1550 IF B>4 THEN GOTO 1580 
1560 FOR K=1 TO 3: PRINT AT K*2 


IF Z$="" TH 











hm 


+d, 3I:VL*A(B) /A(K+4) ; TAB 1B;AS(K 
+4): NEXT K 

1570 GOTO 1590 
1580 FOR K=1 TO 4d: 
+4, 3;VL*A(B); TAB 18;AS(K): 
K 

1590 LET ZS=INKEYS: IF Z9$="" TH 
EN GOTO 1590 

1600 IF Z$=CHRS 13 THEN RETURN 


PRINT AT K*2 
NEXT 


1610 CLS GoTo 1500 

2000 PRINT  INVERSE 1;AT 0,12;" 
VOLUME ": PRINT AT 2,6;"SELECI 
ONE UNIDADE ' ORIGINAL”: PRINT 
FOR K=1 TO 7: PRINT 'TAB 10;K;” 
- C;VS(K): NEXT K 

2010 LET BS=INKEYS: IF BS<"1º O 


R B$>"7”" THEN GOTO 2010 

2020 LET B=VAL BS: INPUT "INTRO 
DUZA O NUMERO DE “; (V$S(B)),VL 
2040 CLS PRINT AT 2,4;VL;”" *; 
VS (B);”" EQUIVALE A * 

2050 IF B>4á THEN GOTO 2080 
2060 FOR K=1 TO 3: PRINT AT K*2 
+4, 3;VL*V(B) /V(K+4) TAB 18;VS(K 
+49): NEXT K 

2070 GOTO 2090 
2080 FOR K=1 TO 4d: 
+d, 3; VL*V (B) /V(K); TAB 
NEXT K 

2090 LET ZS=INKEYS: 
EN GOTO 2090 


PRINT AT K*2 
18:;VS (K): 


IF 28="* TH 
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2100 IF ZS$=CHRS 13 THEN RETURN 


2110 CLS : GOTO 2000 

2500 PRINT INVERSE 1;AT 0,13;* 
PESO "; PRINT AT 2,6;" SELECION 
E UNIDADE ORIGINAL”: PRINT : FO 

R K=1 TO 6: PRINT 'TAB 10;K;"- 
“MS (K): NEXT K 


2510 LET BS=INKEYS: IF BS<"1" O 
R B$>"6" THEN GOTO 2510 

2520 LET B=VAL BS: INPUT "INTRO 
DUZA O NUMERO DE "; (MS(B)),VL 
2540 CLS PRINT AT 2,4;VL;" *; 

MS (B);”" EQUIVALE A " 

2550 IF B>3 THEN GOTO 2580 
2560 FOR K=1 TO 3: PRINT AT K*2 
+4, 3; VL*M(B) /M(K+3) ; TAB 18;MS (K 
+3): NEXT K 

2570 GOTO 2590 

2580 FOR K=1 TO 3: PRINT AT K*2 

+4, 3; VL*M(B) /M(K) ; TAB 18;MS (K): 
NEXT K 

2590 LET ZS=INKEYS: 
EN GOTO 2590 

2600 IF ZS=CHAS 13 THEN RETURN 


IF Z9$="" TH 


2610 CLS GoTO 2500 

3000 PRINT INVERSE 1L;AT 0,11;” 
PRESSAO ": PRINT AT 2,6;"SELEC 
IONE UNIDADE ORIGINAL”: PRINT : 
FOR K=1 TO 5: PRINT "TAB 10;K; 
"- *-PS(K): NEXT K 


IF B$<"1º O 


3010 LET BS=INKETYS: 
R B$>"5" THEN GOTO 3010 


3020 LET B=VAL BS: INPUT “INTRO 
DUZA O NUMERO DE "; (PS(B)),VL 
3040 CLS : PRINT AT 2,4;VL;" *; 
PS(B);" EQUIVALE A * 

3050 LET T=0: FOR K=1 TO 5: IF 
K=B THEN GOTO 3070 

3060 PRINT AT K*2+4, 3;VL*P(K)/P 
(B);TAB 18;PS(K): LET T=T+1 
3070 NEXT K 

3080 LET ZS=INKEYS: 
EN GOTO 3080 

3090 IF ZS$=CHRS 13 THEN RETURN 


IF Z$="" TH 


GOTO 3000 

INVERSE 1;AT 0,9;” 
PRINT AT 3,11;"C 
“” CENTIGRADO 
FAHRENHEI 


3100 CLS 
3500 PRINT 
TEMPERATURA *: 
ONVERSAO:"”: PRINT 
PARA FAHRENHEIT (C) 
T PARA CENTIGRADO (F)” 
3510 LET B$S=INKEYS: IF BS<>"C” 
AND B$<>"F" THEN GOTO 3510 
3520 IF B$="C” THEN GOTO 3560 


3530 INPUT "INTRODUZA GRAUS FAH 
RENHEIT”,VL 
3540 CLS PRINT AT 1,2Z;VL; GR 


AUS FAHRENHEIT EQUIVALEM A ” 
3550 PRINT 'TAB 2; (VL-32)*5/9;" 
GRAUS CENTIGRADOS ”": GOTO 3590 
3560 INPUT CINTRODUZA GRAUS CEN 


377 


TIGRADOS”,VL 

3570 CLS : PRINT AT 1,2;VL;" GR 

AUS CENTIGRADOS EQUIVALEM A * 
3580 PRINT 'TAB 2;32+VL*9/5;" G 

RAUS FAHRENHEIT” 

3590 PAUSE O: LET ZS=INKEYS: IF 
Z$="" THEN GOTO 3590 

3600 IF ZS=CHRS 13 THEN RETURN 
3610 CLS : GOTO 3500 


10 DIM L(7),L3(7),A(6) ,AS(6),V 
(6) VS (6),M(5),MS(5), P(4), PS(4) 


20 FOR K = 0 TO 7: READ L(K),L 
S(K): NEXT 

30 DATA 1,POLEGADAS, 12,PES,36 
| JARDAS, 63360,MILHAS,.03937,MIL 
IMETROS, . 3937, CENTIMETROS, 39.37 
«METROS, 39370,KILOMETROS 

40 FOR K = O TO 6: READ A(K),A 
3(K): NEXT 

50 DATA 1,POLEGADAS QUADRADAS 
144, PES QUADRADOS,6272640,ACRE 
8,4.0145E9,MILHAS QUADRADAS, .15 


5 

55 DATA CENTIMETROS QUADRADO 
S,1550,METROS QUADRADOS,1.55E7, 
HECTARES 

60 FOR K = O TO 6: READ V(K)J,V 
S(K): NEXT 

70 DATA 1,POLEGADAS CUBICAS,1 
7/28, PES CUBICOS,34.67,PINTAS,27 
?.36,GALOES 

/5 DATA  .06102,CENTIMETROS CU 

BIC0S,61.024,LITROS,61024,METRO 
S CUBICOS 

B0 FOR K = O TO 5: READ M(K),M 
S(K): NEXT 

90 DATA 1,0ONCAS,1l6,LIBRAS,358B 

40, TONS, .03527,CRAMAS,35.27,KIL 

OGRAMAS, 35270, TONELADAS 

100 FOR K = O TO 4: READ P(K), 
PS(K): NEXT 

110 DATA 1,LIBRAS/P0L2,51.73, 

MMHG, 6895, NENTONS/M2, .0681,ATMO 
SFERAS,68.95,MILIBARES 

120 HOME : HTAB 10: VTAB 5: PR 
INT "QUAL CATEGORIA? (0-6)" 

130 VTAB 10: HTAB 10: PRINT "O 
- SAIR”: HTAB 10: PRINT "1 - € 

OMPRIMENTO” : HTAB 10: PRINT "2 
- AREA” 

140 HTAB 10: PRINT "3 - VOLUME 
“+ HTAB 10: PRINT “4 - PESO": H 

TAB 10: PRINT "5 - PRESSAO" 

150 HTAB 10: PRINT "6 - TEMPER 

ATURA” 

160 GET AS: IF AS < "0" OR AS 

2 “6” THEN 160 

170 HOME : IF AS = "0" THEN E 

ND 

180 ON VAL (AS) GOSUB 1000,15 

00,2000,2500,3000,3500 

190 GOTO 120 

1000  INVERSE : PRINT SPC( 39) 
:: HTAB 14: PRINT “COMPRIMENTO” 
NORMAL 

1010 PRINT : HTAB 5: PRINT "ES 

COLHA A UNIDADE”: PRINT 


WE 1020 FORK = O TO 7: PRINT:H 
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E = a RT a ! É = 
TAB 5: PRINT K + 1;"- ":;LS(K): COLHA A UNIDADE”: PRINT 
NEXT 1520 FOR K = 0 TO 6: PRINT : H 
1030 GET BS: IF BS < "1" OR BS TAB 5: PRINT K + 1;"- ";AS(K): 
> "B” THEN 1030 NEXT 
1040 B = VAL (BS) - 1: HOME : 1530 GET BS: IF B$ < "1" OR B$ 
PRINT "NUMERO DE ";LS(B);"?" > "7" THEN 1530 
1050 INPUT VL 1540 B = VAL (BS) - 1: HOME 
1060 HOME : PRINT VL; CHAS (32 PRINT "NUMERO DE ";AS(B);"2?" 
)J:LS(B);” EQUIVALEM A:”* 15850 INPUT VL 
1070 IF B > 3 THEN 1100 1560 HOME : PRINT UL; CHRS (32 
1080 VTAB 10: FOR K = O TO 3: J:AS(B);" EQUIVALEM A:" 
PRINT : PRINT VL * L(B) / L(K + 1570 IF B > 3 THEN 1600 
4);: HTAB 20: PRINT LS(K + 4): 1580 DVTAB 10: FOR K = O TO 2: 
NEXT PRINT : PRINT VL * A(B) / A(K + 
1090 coTo 1110 4);: HTAB 19: PRINT AS(K + d): 
1100 VTAB 10: FOR K = 0 TO 3: NEXT 
PRINT : PRINT UVL * L(B) / L(K); 1590 GOTO 1610 
+ HTAB 20: PRINT LS(K): NEXT 1600 VTAB 10: FOR K = O TO 3: 
1110 GET AS: IF AS < > ccHAS PRINT. : PRINT VL * A(B) / A(K); 
(13) THEN HOME : GOTO 1000 - HTAB 19: PRINT AS(K): NEXT 
1120 RETURN 1610 GET AS: IF AS < > ccHR$ 
1500  INVERSE : PRINT SPC( 39) (13) THEN HOME : GOTO 1500 
:: HTAB 18: PRINT "AREA": NORMA 1620 RETURN 
L 2000  INVERSE : PRINT SPC( 39) 
1510 PRINT : HTAB 5: PRINT "ES :: HTAB 17: PRINT "VOLUME": NOR 
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2010 PRINT : HTAB 5: PRINT "ES 

COLHA A UNIDADE”: PRINT 

2020 FOR K = O TO 6: PRINT: H 

TAB 5: PRINT K + 1;"- ";vsS(kK): 

NEXT 

2030 GET BS: IF B$ < "1” OR BS 
> "7" THEN 2030 

2040 B = VAL (BS) - 1: HOME 
PRINT "NUMERO DE ";VS(B);"?" 
2050 INPUT VL 

2060 HOME : PRINT VL; CHARS (32 
J:VS(B);” EQUIVALEM A:" 

2070 IF B > 3 THEN 2100 

2080 VTAB 10: FOR K = O TO 2: 
PRINT : PRINT VL * V(B) / V(K + 
4);: HTAB 19: PRINT VS(K + 4): 
NEXT 

2090 GoTo 2110 

2100 VTAB 10: FOR K = O TO 3: 
PRINT : PRINT UL * V(B) / VU(K); 
- HTAB 19: PRINT VS(K): NEXT 
2110 GET AS: IF AS < > cCHRS 
(13) THEN HOME : GOTO 2000 
2120 RETURN 

2500  INVERSE : PRINT SPC( 39) 
:* HTAB 18: PRINT "PESO": NORMA 
L 

2510 PRINT : HTAB 5: PRINT "ES 
COLHA A UNIDADE”: PRINT 

2520 FOR K = O TO 5: PRINT : H 

TAB 5: PRINT K + 1;"- ";MS(K): 
NEXT 

2530 GET BS: IF BS <"l]” OR BS 
> "6" THEN 2530 

2540 B = VAL (BS) - 1: HOME 
PRINT "NUMERO DE ";MS(B);"?7" 
2550 INPUT VL 

2560 HOME : PRINT VL; CHBS (32 
)J;MS(B);” EQUIVALEM A:" 

2570 IF B > 2 THEN 2600 

2580 VTAB 10: FOR K = 0 TO 2: 
PRINT : PRINT UVL * M(B) / MK + 
3);: HTAB 19: PRINT MS(K + 3): 
NEXT 

2590 GOTO 2610 

2600 DVTAB 10: FOR K = 0 TO 3: 
PRINT : PRINT UL * M(B) / M(K); 
- HTAB 19: PRINT MS(K): NEXT 
2610 GET AS: IF A$ < > cCHRS$ 
(13) THEN HOME : GOTO 2500 
2620 RETURN 

3000  INVERSE : PRINT SPC( 39) 
“+ HTAB 16: PRINT "PRESSAO": NO 

RMAL 

3010 PRINT : HTAB 5: PRINT "ES 

COLHA A UNIDADE”: PRINT 

3020 FOR K = 0 TO 4: PRINT : H 

TAB 5: PRINT K + 1;"- ";PS(K): 

NEXT 

3030 GET BS: IF BS < "1" OR BS 
> "5" THEN 3030 

3040 B = VAL (B$) - 1: HOME 
PRINT "NUMERO DE ";PS(B);"?" 
3050 INPUT VL 

3060 HOME : PRINT VL; CHARS (32 
|) ;PS(B);" EQUIVALEM A:* 

3070 T = 0: VTAB 10: FOR K = 0 

TO 4: IF K = B THEN 3100 

3090 PRINT : PRINT UVUL * P(K) / 
P(B);: HTAB 19: PRINT PS(K):T 
“7 +] 

3100 NEXT 













3110 GET AS: IF AS < > cHR$ 


(13) THEN HOME : GOTO 3000 
3120 RETURN 
3500  INVERSE : PRINT SPC( 39) 


;: HTAB 14: PRINT "TEMPERATURA" 
NORMAL 


3510 PRINT : HTAB 5: PRINT "CO 
NVERTER:”: PRINT 
3520 PRINT : HTAB 5: PRINT "CE 


NTICRADO PARA FARENHEIT (C)" 
3530 PRINT HTAB 5: PRINT 
RENHEIT PARA CENTIGRADO (F)” 


“EA 


3546 GET B$: IF BS < > "C” AN 
D BS < > "F” THEN 3540 

3550 IF B$ = "C” THEN 3590 
3560 HOME INPUT “GRAUS FAREN 
HEIT? “P;VL 

3570 PRINT PRINT VL;" GRAUS 


FARENHEIT EQUIVALEM A ";(UL - 3 
2) * 5 / 9;" GRAUS CENTIGRADOS. 
"*: GOTO 3620 


3590 HOME INPUT "GRAUS CENTI 
GRADOS? “;VL 
3600 PRINT PRINT VL;” GRAUS 


CENTIGRADOS EQUIVALEM A ";32 + 
VL * 9 / 5;" GRAUS FARENHEIT.” 
3620 GET AS: IF AS < > cCHR$ 
(13) THEN HOME : GOTO 3500 
3630 RETURN 


na 


5 DEFSNG A 

10 DIM L(7),LS(7),A(6)  AS(6).VC 
6) VS (6),M(5),M5S (5), P(4), PS(4) 
20 FORK=0TO7Z:READ L(K),LS(K) :NE 
XT 

30 DATA l,polegadas,12,pés,36,9 
ardas,63360,milhas,.03937,milím 
etros,.3937,centímetros,39.37,m 
etros,39370,kilômetros 

40 FOBK=0TO6:BEAD A(K),AS(K) :NE 
XT 

50 DATA 1l, polegadas quadradas, 
44,pés quadrados,6272640,acres, 
4.0145e9,milhas quadradas,.155, 
centímetros quadrados, 1550,metr 
os quadrados,1.55e7,hectares 

60 FORK=0TO6:READ V(K), VS (K):NE 
XT 

70 DATA l,polegadas cúbicas,172 
&,pés cúbicos,34.67,pintas,2/7. 
36 ,0alões,.06102,centímetros cú 
bicos,61.024,litros,61024,metro 
a cúbicos 

BO FORK=0TOS:READ M(K), MS (K) :NE 
XT 

90 DATA 1,onças,l6,libras,35840 
«tons, .03527,9gramas,35.27,kilog 
ramas,35270, toneladas 

100 FORK=0TO4:READ P(K), PSCK)J:N 
EXT 

110 DATA 1,libras/pol ,51.7/3,mm 
Hq,6895, newtonas/m ,.0681,atmosf 
eras,68.95,milibares 

120 CLS:COLOR 15,4,4:PRINT” Qu 
al categoria? (0-6)" 

130 LOCATE 5,5: PRINT"O - Sair”: 
LOCATE 5,7:PRINT"1 - Compriment 
o" :LOCATE 5,9:PRINT"2 - Area” 
135 LOCATE 5,11:PRINT”"3 - Volum 
e”":LOCATE 5,13:PRINT"4 - Peso”: 
LOCATE 5,15:PRINTºS - Pressão”: 


LOCATE 5,17:PRINT"6 - Temperatu 
ra” 

140 AS=INKEY5S:IFAS<"O0"ORAS>"6"T 
HEN140 

150 IFAS="0"THENCLS: END 

160 CLS:ON VAL (AS) GOSUB 1000,1 
500,2000,2500,3000,3500 

170 GOTO 120 

1000 COLOR 15,6,6:PRINT"Comprim 
ento": PRINTSTRINGS (39,195) : LOCA 
TE 5,3:PRINT"Selecione a unidad 
e!” 

1010 FORK=0TO7:LOCATE 5,6+2*K:P 
RINTK+1;"-= ";LS(K) :NEXT 

1020 BS=INKEYS: IFBS<"1"0RBS>"B" 
THEN1020 

1030 B=VAL (BS)-1:CLS:PRINT"Diq1i 
te o número de ";LS(B) 

1040 INPUT VL 

1050 CLS: PRINTVL;CHRS(32);L5S(B) 
:” equivalem a:* 

1060 IFB>3THEN1090 

1070 FORK=0TO3:LOCATE 1,6+2*K:A 
=VL*L (B)/L (K+4) : PRINTA; TAB (14); 
LS (K+4) :NEXT 

1080 GoTO 1100 

1090 FORK=0TO3:LOCATE 1,6+2*K:A 
=VUL*L(B)/L(K): PRINTA; TAB(14);LS 
(K) :NEXT 

1100 AS=INKEYS:IFAS=""THEN1100 
1110 IFAS=CHR$S (13) THEN RETURN E 
LSE CLS:G0T0O1000 

1500 COLOR 15,10,10:PRINT"área” 
- PRINTSTRINGS (39,195) :LOCATE 5, 
3: PRINT"Selecione a unidade:” 
1510 
RINTK+1;"- ";AS(K) :NEXT 

1520 BS=INKEYS: IFBS<"1"ORBS>"7" 
THEN1520 

1530 B=VAL (B$)-1:CLS: PRINT"Diq1 
te o número de ";AS(B) 

1540 INPUT VL 

1550 CLS:PRINTVL;CHRS(32):;AS(B) 
'”" equivalem a:”" 

1560 IFB>3THEN1590 

1570 FORK=0TOZ:LOCATE 1,6+2*K:A 
=YL*XA(B) /A(K+4) : PRINTA; TAB (14); 
AS (K+4) :NEXT 

1580 GOTO 1600 

1590 FORK=0TO3:LOCATE 1,6+2*K:A 
=VL*A(B) /A(K): PRINTA;TAB(14);AS 
(K) :NEXT 

1600 AS=INKEYS:IFAS=""THEN1600 
1610 IFAS=CHRS (13) THEN RETURN E 
LSE CLS:G0TO1500 

2000 COLOR 15,12,12:PRINT"Volum 
e” : PRINTSTRINGS (39,195) :LOCATE 
5,3: PRINT"Selecione a unidade:” 
2010 FORK=0TOS:LOCATE 5,6+2*K:P 
RINTK+1;"- ":;VS(K) :NEXT 

2020 BS$=INKEYS: IFBS<"1"0RBS>"7" 
THEN2020 

2030 B=VAL (BS) -1:CLS: PRINT"Diqgi 
te o número de ";V5S(B) 

2040 INPUT VL 

2050 CLS:PRINTVL;CHRS(32);V5(B) 
:”" equivalem a:" 

2060 IFB>3THEN2090 

2070 FORK=0TO2Z:LOCATE 1,6+2*K:A 
=VL*UV(B) /V(K+4) : PRINTA;TAB (14); 
VS (K+4) :NEXT 

2080 GOTO 2100 

2090 FORK=0TO3:LOCATE 1,6+2*K:A 


FORK=0TO6:LOCATE 5,6+2*K:P 


=VL*V(B)/V(K): PRINTA; TAB (14) ;VS5 
(K) :NEXT 

2100 AS=INKEYS: IFAS=""THEN2100 
2110 IFAS=CHAS (13) THEN RETURN E 
LSE CLS:G0T0O2000 

2500 COLOR 15,13,13:PRINT"Peso”" 
*: PRINTSTRINGS (39,195) :LOCATE 5, 
3: PRINT"Selecione a unidade:” 
2510 FORK=0TOS:LOCATE 5,6+2*K:P 

RINTK+1;"- ":;MS(K) :NEXT 

2520 BS=INKEYS: IFBS<"1"0RBS>"6" 

THEN2520 

2530 B=VAL (BS) -1:CLS:PRINT"Diqgi 

te o número de ";M5S(B) 

2540 INPUT VL 

2550 CLS: PRINTUL;CHRBRS (32) ;MS(B) 
|" equivalem a:” 

2560 IFB>2THEN2590 

2570 FORK=0TOZ:LOCATE 1,6+2*K:A 

=YL*M(B)/M(K+3) : PRINTA; TAB (14); 

MS (K+3) :NEXT 

2580 GOTO 2600 

2590 FORK=0TOZ:LOCATE 1,6+2*K:A 

=VL*M(B)/M(K) :PRINTA; TAB(14);MS 
(K) :NEXT 

2600 AS=INKEYS: IFAS=""THEN2600 
2610 IFAS=CHRS (13) THEN RETURN E 
LSE CLS:G0TO2500 

3000 COLOR 15,14,14:PRINT"Press 

ão" : PRINTSTRINGS (39,195) :LOCATE 
5,3: PRINT"Selecione a unidade: 
mM 


3010 FORK=0TO4:LOCATE 5,6+2*K:P 
RINTK+1;"- ":PS(K) :NEXT 

3020 BS=INKEYS5: IFBS<”"1"ORBS>"5" 
THEN3020 

3030 B=VAL (B$)-1:CLS:PRINT"Diqgi 
te o número de ";PS(B) 

3040 INPUT VL 

3050 CLS: PRINTVL; CHRS (32); PS(B) 
'” equivalem a:* 

3060 T=0:FORK=0TO4: IFK=BTHEN308 


O 

3070 LOCATE 1,6+2*T:A=VL*P(K)/P 
(B) : PRINTA; TAB(14);PS(K):T=T+1 
3080 NEXT 

3090 AS=INKEYS: IFAS=""THEN3090 

3100 IFAS=CHAS (13) THEN RETURN E 

LSE CLS:G0TO3000 

3500 COLOR 15,6,6:PRINT"Tempera 
tura”: PRINTSTRINGS (39,195): LOCA 

TE 5,3:PRINT"Converter:” 

3510 LOCATE 5,6:PRINT"Centígrad 

os para Farenheit (C)":LOCATE 5 
,B: PRINT"Farenheit para Centígr 

ados (F)" 

3520 BS=INKEYS: IFB$<>"C" ANDBSS> 
"F"THENI520 

3530 IFBS="C"THEN3560 

3540 CLS: INPUT"Graus Farenheit” 
: VL 

3550 LOCATE 3,7:PRINTVL;" qraus 
Farenheit equivalem a ":PRINT( 

VL-32)*5/9;" graus Centígrados. 
".GOTO 3580 

3560 CLS: INPUT"Graus Centígrado 

B";VL 

3570 LOCATE 3,7:PRINTVL;" graus 
Centígrados equivalem a”: PRINT 

32+VL*9/5;" graus Farenheit.” 

3580 AS=INKEYS:IF AS=""THEN358O0 

3590 IFAS=CHRS (13) THEN RETURN E 

LSE CLS:GOTO 3500 





A PR 





ERRATA 


VOLUME I 


Pág. 26 - legenda à esquerda 
Onde se lê: 

No TK-80X o Caleidoscópio... 
Leia-se: 

No TK-90X o Caleidoscópio... 


Pág. 34 - 1? col. - 4º parágrafo 
Onde se lê: 

5 + 10 + 200 + 3000 

Leia-se: 

5 + 70 + 200 + 3000 


Pág. 53 - 12 col. - 2º parágrafo 
Onde se lê: 

«conector DID... 

Leia-se: 

«conector DIN... 


Pág. 56 - TÍTULO DA MATÉRIA 
Onde se lê: 

ARITIMÉTICA HEXADECIMAL 
Leia-se: 

ARITMÉTICA HEXADECIMAL 


Pág. 60 - 3º col. - quadro 

Onde se lê: 

O octal tem 8 dígitos: 0, 1, 2, 3,4, 
26,708. 

Leia-se: 

O octal tem 8 dígitos: 0, 1, 2, 3,4, 
2 0€ 7. 


Pág. 245 - 1º col. - 1º e 4º parágrafos 
Onde se lê: 

VAL(= A$) ou VAL(= B$) 

Leia-se: 

VAL(AS$) ou VAL(BS$) 


Pág. 245 - 12 col. - 4º parágrafo 
Onde se lê: 

B$'45 MARCOS” 

Leia-se: 

B$ = “45 MARCOS” 





Pág. 7 - 22? col. - 2º parágrafo 

Onde se lê: 

(só vale para o TK-90X) 

Leia-se: 

(vale para todos os micros da linha Sin- 
clair) 


Pág. 30 - 1? col. - programa 
Substitua a flecha para cima (1) na li- 
nha 60 pela letra T 


Pág. 32 - 3º col. - programa 
Substitua a flecha para cima (1) na li- 
nha 150 pela letra T 


Pag. 39 - 1º col. - programa 
Para funcionar no ZX-81, coloque tu- 
do em maiúsculas e substitua a linha I30 


- por: 


130 PRINT,,,,"OUTRO NUMERO  (S/ 
N) 2?” 


Pág. 41 - 1º col. - programa 
Para funcionar no ZX-81, mude tudo 
para maiúsculas e faça as seguintes cor- 
reções no programa: 
25 LET T=0 
26 LET C=0 
40 IF N=-99 THEN GOTO 80 
80 PRINT "MEDIA=";T/C 
90 STOP 


Pág. 42 - 2º col. - programa 
Para funcionar no ZX-81, mude tudo 
para maiúsculas e faça as seguintes cor- 
reções no programa: 
50 IF G=N THEN GOTO 90 
90 PRINT "MUITO BEM” 
92 PAUSE 100 
94 GOTO 10 


Pág. 260 - 12 col. - 5º2,6º e 7º parágrafos -Pág. 43 - 1º col. - 4º parágrafo 


e Pág. 260 - 2? col. - 2º parágrafo 
Onde se lê: 

CHRS$ 

Leia-se: 

CHRS$ 


Pág. 290 - 1? col. - último parágrafo 
Pág. 291 - 2º col. - último parágrafo 
Onde se lê: 

...OS comandos GETS e 

Leia-se: 

«OS comandos GET e 


Pág. 294 - 12 col. - 2º parágrafo 
Onde se lê: 

«poderão ser chocados... 
Leia-se: 

«poderão ser checados... 


Adicione: 
No programa para o ZX-81, retire a 
linha 94. 


Pág. 43 - 12 col. - 2º? programa 

Para funcionar no ZX-81, mude tudo 
para maiúsculas e separe as instruções da 
tinha TO em duas linhas. 


Pág. 77 - 1º col. - 2? programa 
Para funcionar no ZX-81, divida a li- 
nha 15 em: 
15 INPUT A 
16 INPUT B 


Pág. 78 - 2º col. - programa 

Para funcionar no ZX-81, divida em 
várias linhas os comandos separados por 
dois pontos, nas linhas 130, 140, 150 e 
160. 


Pág. 94 - 22 col. - 4º parágrafo 

Onde se lê; 

No ZX-81 a tecla RAMD fornece RAND 
na tela) 

Leia-se: 

No ZX-81, a tecla RAND pode ser usa- 
da para esta finalidade) 


Pág. 244 - 2º col. - 1º programa 

O programa também funciona para o 
Sinclair ZX-81. Apenas coloque o coman- 
do GOTO 10 da linha 30 em uma linha 
adicional. 


Pág. 30 - 1º col. - programa 
Substitua a flecha para cima (1) na li- 
nha 60 pela letra T 


Pág. 32 - 3º col. - programa 
Substitua a flecha para cima (1) na li- 
nha 150 pela letra T 


Pág. 46 - 1º col. - programa 
Adicione a linha: 
90 DIM a$(32) 


Pág. 94 - 2º col. - 3º programa 
Pág. 100 - 12 col. - 2? programa 

O logotipo não se aplica a este 
programa 


Pág. 136 - 3º col. - programa 

Corrija a linha: 
200 CLS:PRINT BRIGHT v; PAPER 2; 
INK 6; AT 2; 4; “MENU PRINCIPAL” 


Pág. 168 - 3º? col. - 2º parágrafo 

Adicione: 

No micro nacional TK-90X, este co- 
mando recebeu o nome de SOUND. Por- 
tanto, se você tem um TK-90X, substitua 
todas as ocorrências do comando BEEP 
pelo comando SOUND, nas linhas 8010 
(programas da página 169, 1º coluna e 32 
coluna), 8010 e 8015 (programa da pági- 
na 170, 12 coluna) e 400 (página 170, 2º 
coluna). 


Pág. 213 - 32 col. - 1º parágrafo 
Onde se lê: 

Os comandos Id 
1,16385... 
Leia-se: 

Os comandos ld de, 16384 e Id hi, 
16385... 


de, 16384 e Id hi, 


Pág. 244 - 2º col. - 1º programa 
O programa também funciona para o 
Sinclair Spectrum 


Continua no próximo número 


INRREENO PRÓXIMO NÚMERONEEEEII 


PROGRAMAÇÃO BASIC 


Conheça melhor os comandos gráficos de seu computador e 
saiba explorar plenamente os recursos disponíveis. 


CÓDIGO DE MÁQUINA 


O que faz um programa rastreador. Como detectar e corrigir 
os erros de um programa longo. 


PROGRAMAÇÃO BASIC 


Como tirar o máximo do comando EDIT e facilitar a edição de 
programas no TRS-80 e no TRS-Color. 


PROGRAMAÇÃO DE JOGOS Rs 
Invente aventuras originais usando como base e co 
os programas de INPUT. Ra | 





